Ich weiß das Thema ist schon etwas älter, aber meine Frage ist eine Weiterführung von diesem hier. Da wollte ich keinen neuen anfangen.
Nun zur Frage.
Ich habe ein Aktivformular. An das übergebe ich eine Prozedur als Property. Diese wird in ShowModal aufgerufen. Der einzige Nachteil an diesem Vorgehen, die Prozedur muß Parameterlos, bzw. die Parameter haben die ich in der Deklaration angegeben habe, besitzen.
Kann ich als Property eine Anonyme Prozedur angeben?
Hier was ich bisher habe (nur die wesentlichen Teile):
Delphi-Quellcode:
TCallProc = procedure of object;
TCallFunc = function: string of object;
TWorkerThread = class(TThread)
procedure Execute; override;
private
FCallProc: TCallProc;
procedure SetCallProc(const Value: TCallProc);
public
property CallProc : TCallProc read FCallProc write SetCallProc;
end;
TAktivForm = class(TForm)
procedure FormShow(Sender: TObject);
private
procedure WmAfterShow(var Msg: TMessage); message WM_AFTER_SHOW;
public
property CallProc : TCallProc read FCallProc write SetCallProc;
end;
procedure TAktivForm.FormShow(Sender: TObject);
begin
PostMessage(Self.Handle, WM_AFTER_SHOW, 0, 0);
end;
procedure TAktivForm.WmAfterShow(var Msg: TMessage);
begin
Thread := TWorkerThread.Create(True);
Thread.FreeOnTerminate := True;
Thread.CallProc := FCallProc;
Thread.Start;
while (not Thread.Terminated) do
begin
Application.ProcessMessages;
Sleep(50);
end;
Close;
end;
...
AktivForm := TAktivForm.Create(Self);
AktivForm.CallProc := Run;
AktivForm.lblText.Caption := rcDatenabfrage;
AktivForm.ShowModal;
Im wesentlichen wird an die Form eine Prozedur übergeben, die bei OnShow ausgeführt wird und am Ende wird das Formular geschlossen.
Nochmal:
Nachteil, die Prozedur "Run" muß so aussehen wie TCallProc definiert ist.
Jetzt habe ich versucht:
TCallProc = reference to procedure[(parameterlist)];
Aber da damit geht es nicht:
E2010 Inkompatible Typen: 'TCallProc' und 'Procedure of object'
Kann man das irgendwie machen oder eher nicht?
David