Hallo Forum,
folgendes Situation:
Ich habe mehrere Objekte (Edit-Felder), die alle eine onChange-Funktion ausführen. Klappt auch prima.
Jetzt möchte ich folgendes Erreichen: Das Objekt, welches zuletzt ein onChange ausgeführt hat, soll gemerkt werden und die dazugehörige onChange-Methode von einem anderen Programmteil aus ausgeführt werden.
Ich habe bereits eine Variable als TObject definiert, mit welchen ich mir den Sender merken kann, aber ich bekomme es irgendwie nicht hin, daß davon dann die onChange aufgerufen wird.
Hier mal im Groben ein zusammengefaßter Quellcode
Code:
// ...
var
last_change: TObject;
// ...
procedure TForm1.Edit1Change(Sender: TObject);
begin
last_change := Sender;
// do something ...
end;
procedure TForm1.Edit2Change(Sender: TObject);
begin
last_change := Sender;
// do something ...
end;
procedure TForm1.Edit3Change(Sender: TObject);
begin
last_change := Sender;
// do something ...
end;
// ...
procedure TForm1.ButtonClick(Sender: TObject; Button: TUDBtnType);
begin
// do something ...
// !!!!!!!!!!!!!!!!!!!!!
// Hier soll die Change-Methode des Objektes 'last_change'
// zur Aktualisiserung aufgerufen werden
// !!!!!!!!!!!!!!!!!!!!!
end;
// ...
Ich hab schon mit diversen ExecuteAction-Konstrukten herum experimentiert, aber wie schon gesagt, ich bekomme es irgendwie nicht hin. Hat jemand einen Rat für mich?
Vielen lieben Dank im Vorraus