Hallo liebes Forum,
was muss an der Stelle "???" rein, damit ich ein MouseUp-Event von einem anderen Button aufrufen kann.
So wie das
Button1click(self);
ja auch geht, so muss das
Delphi-Quellcode:
procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Button1.Caption := 'klappt';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Button1MouseUp(Button2,MBLeft, ??? ,1,1);
end;
ja auch irgendwie gehen.