Einzelnen Beitrag anzeigen

hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.275 Beiträge
 
Delphi 10.4 Sydney
 
#17

AW: Button.Click für Listview mal anders

  Alt 19. Nov 2018, 11:49
Hallo,
als Anfänger würde ich das erst mal so machen.
Delphi-Quellcode:
type
  TForm1
    protected
      // hat Delphi bereits angelegt
      procedure Button1Click(Sender...);
    private
      procedure HandleButton1Click; // eigene Methode
    public
    published
  end;

procedure TForm1.Button1Click(Sender...);
begin
  HandleButton1Click; // eigene Methode
end;

procedure TForm1.Button2Click(Sender...);
begin
  HandleButton2Click; // eigene Methode
end;

procedure TForm1.ListView1Click(Sender...);
begin
  HandleListView1Click;
end;

procedure TFrm1.HandleButton1Click;
begin
  // hier kommt Dein ganzer Code rein, der auf Button1-Click erfolgen soll
end;
Damit trennst Du erst mal die GUI (Button1.Click) vom Code (HandleButton1Click) beim Klicken.
Später kannst Du das HandleButton1Click so ändern, dass gar nicht mehr auf GUI-Elemente zugegriffen wird.
Heiko
  Mit Zitat antworten Zitat