Also ich habe 2 Buttons, warum funktioniert diese Funktion bei mir nur für btn_I
Code:
procedure TForm1.btn_IClick(Sender: TObject);
begin
if Sender = btn_I then
Showmessage('T')
else if Sender = btn_II then
Showmessage('G');
end;
Erst wenn ich die zweite Fkt. einfüge
Code:
procedure TForm1.btn_IIClick(Sender: TObject);
begin
btn_IClick(btn_II);
end;
Dabei sehe ich einen Haufen Quellcode wo diese zweite Funktion nicht vorkommt und der Sender einfach so mit einer if Abfrage übergeben wird.