Einzelnen Beitrag anzeigen

Benutzerbild von SimonRap
SimonRap

Registriert seit: 17. Okt 2009
Ort: Mahlow
147 Beiträge
 
Delphi 6 Personal
 
#1

Eine Procedur für viele Buttons, wie? (gelöst)

  Alt 8. Apr 2010, 13:46
Na toll ich muss den Artikel nochma schreiben, I-Net hat gespackt
Also:
Ich hab ne bestimmte Anzahl von Buttons und (der Code stimmt nicht, aber zur Verdeutlichung) jedesmal wenn auf einen Button geklickt wird, soll dessen Länge verdoppelt werden...
Also müsste ich:
Delphi-Quellcode:
Procedure Btn1Click;
Begin
  bla;
end;
Procedure Btn2Click;
Begin
  bla;
end;
Procedure Btn3Click;
Begin
  bla;
end;
//und so ewig weiter machen
Jetzt frage ich mich:
Könnte man nicht mit der schon mitgelieferten Sender VARiable das irgwndwie dynamisch machen?
also:
Delphi-Quellcode:
procedure btn1Click(sender:Object);
begin
  sender.width:=sender.width*2;
end;
So was is der Art???

Thx schonmal
MfG simon
Simon
  Mit Zitat antworten Zitat