Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
27. Jun 2008
Da hätte ich auch drauf kommen können :wall:
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
27. Jun 2008
Ich habe anscheinend Tomaten auf den Augen, ich kann nämlich nichts entdecken :|
Wenn ich wieder Delphi zur Verfügung habe (heute Mittag), schaue ich mir das nochmal mit dem Debugger an.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
27. Jun 2008
Ich kann hier keine Rar-Archive öffnen, das kann also Mittag werden.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
27. Jun 2008
Genauso geht das. Die zuzuweisende Methode muss dann dieselbe Signatur (also die selben Parameter) besitzen. Und Assigned prüft, ob eine Methode zugewiesen wurde. Im Detail heißt das, es wird nachgesehen, ob der Methodenzeiger nil ist.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
26. Jun 2008
Dann wäre es IMO wirklich besser, sich den alten Status zu merken und zu vergleichen.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
26. Jun 2008
Wozu brauchst Du eigentlich den Timer? Wenn sich der Status ändert, bekommst Du es doch mit.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
26. Jun 2008
Du rufst ja im Timer auch immer OnChange auf, ohne auf Änderung zu prüfen.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
26. Jun 2008
type TMyForm = class(TForm)
...
private
procedure DoChange; //eine Methode mit identischer Signatur wie in der Klasse
...
end;
...
procedure TMyForm.DoChange;
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
26. Jun 2008
Jepp, sonst kommt wieder nichts an :lol:
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
26. Jun 2008
Du brauchst eine Setter-Methode.type Tmyclass = class
...
private
procedure SetStatus(value: Boolean);
...
public
property Status : Boolean read FStatus write SetStatus;
...
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
26. Jun 2008
Das OnChange-Ereignis soll ausgelöst werden, wenn Status geändert wird?
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
26. Jun 2008
Lass mich doch auch mal :zwinker: :cheers:
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
26. Jun 2008
Kleine Ergänzung/Änderung:
constructor Tmyobject.Create;
begin
//...
FOnChange := nil;
end;
procedure TmyObject.OnChange;
begin
if Assigned(FOnChange) then