Hallo,
folgender Code:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
| TAppAlive=class(TWinControl)
constructor Create(AOwner:TComponent); override;
destructor Destroy; override;
protected
procedure SetParent(AParent:TWinControl); override;
procedure SetEnabled(NewValue:boolean); override;
public
procedure SetBounds(ALeft,ATop,AWidth,AHeight:integer); override;
procedure Update; override;
private
Thread:TDoWhat;
FBeam:TBitmap;
procedure SetBeam(NewBeam:TBitmap);
published
property Beam:TBitmap read FBeam write SetBeam;
property Enabled:boolean write SetEnabled;
end;
.
.
.
procedure TAppAlive.SetBeam(NewBeam:Graphics.TBitmap);
begin
FBeam.Assign(NewBeam);
ShowMessage('Hallo');
SetBounds(Left,Top,Width,Height);
if Assigned(Thread) then Thread.SetBeam(FBeam);
end; |
Zur Entwurfszeit gibt die Komponente ein "Hallo" aus. Starte ich aber das Programm, so wird der Code nicht ausgeführt. (Kein zusätzlicher Source im Hauptprogramm). Woran kann das liegen? Und wie mache ich es besser?
_________________
Ein Computer wird das tun, was Du programmierst - nicht das, was Du willst.
