Thema: TNotifyEvents

Einzelnen Beitrag anzeigen

Gyrospeter

Registriert seit: 11. Apr 2019
34 Beiträge
 
Delphi XE2 Professional
 
#18

AW: TNotifyEvents

  Alt 14. Jan 2020, 11:19
Kurze Antwort: Ja. Lange Antwort: Machs nicht.
Ok

Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
begin
  //if Assigned(FOnEvent) then // FALSCH HERUM!
  if not Assigned(FOnEvent) then
  begin
    Memo1.Lines.Add ('Nothing assigned');
    FOnEvent := nil;
  end
  else
    FOnEvent := Button2Click;
end;
Funktioniert leider nicht. Denn ich will ja Button2 ausgeben wenn es Assigned ist. Im Optimalfall natürlich Button 1 und 2...
  Mit Zitat antworten Zitat