Thema: Delphi Prozedur weiterleiten

Einzelnen Beitrag anzeigen

Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#19

AW: Prozedur weiterleiten

  Alt 23. Dez 2010, 00:56
Um mal wieder auf die Ausgangsfrage zurückzukommen

Wozu überhaupt mit WM_QUIT oder sonstigen Nachrichten arbeiten?
Die Klasse ist doch direkt im Programm eingebunden ...

Baue in jedes deiner Programme eine Funktion ein, mit der die Anwendung beendet werden kann.

Diese Funktion übergibst du dann der Klasse und die Klasse ruft einfach diese Funktion auf, fertig.

Delphi-Quellcode:
Unit UpdateKlasse;

interface

type
  TQuitFunc = function : boolean;

  TUpdateKlasse = class
  ...
    Property QuitFunc : TQuitFunc Read FQuitFunc Write FQuitFunc;
 ...
  end;

...

procedure TUpdateClass.UpdateExecute;
begin
  if Assigned( FQuitFunc ) then
    if FQuitFunc then
      RunUpdateProg;
end;
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat