Forum: Object-Pascal / Delphi-Language
Delphi
by kiar,
12. Okt 2003
hallo jens , wir hatten schon ma das vergnügen ging um ein ähnliches problem :cheers:
raik
jens ich leite aber von TBrandmeldung ab, ich denke, das Fzustand durch den aufruf der paint methode immer wieder gesetzt wird.
eigentlich ist es besser, fZustand als boolean zu setzen, aber wenn ich mehrere zustände habe, oder mehrere Typen wird es mit boolean nicht gehen
Forum: Object-Pascal / Delphi-Language
Delphi
by kiar,
12. Okt 2003
hi chris
procedure TMelder.myClick(Sender:TObject);
begin
if fZustand = Zout then
begin
FZustand:= Zon;
canvas.pen.color:=Clred
end else
Forum: Object-Pascal / Delphi-Language
Delphi
by kiar,
12. Okt 2003
folgendes problem, ich leite eine klasse von TCustomControl ab
type
TZustand = (zOn, zOut);
TBrandmeldung = class(TCustomControl)
private
FZustand:TZustand;
protected