Delphi-Quellcode:
procedure Hallo;
begin
label1.caption:='LOOOL';
label2.caption:='KEWL';
label3.caption:=':D';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text:='jhuuu';
Hallo;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
label5.caption:='Nix';
Hallo;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
edit9.text:='was..weiß..ich';
Hallo;
end;
wie kann ich das einfacher machen, also das ich ned bei jedem Button die Procedure Hallo jedesmal eintragen muss, obwohl sie bei jedem Button vorkommt..
aber jeder button hat eben zusätzlich noch verschiedene Aufgaben
Das ist halt nur Bsp- das mit dem Label- und die Anzahl der Button ist im
dreistelligen Bereich.
ich will so wenig wie möglich als Code schreibe .. man kann sowas doch bestimmt mit Schleifen machen oder wie sonst??
ich könnte ja nur ein button mit der Procedure Hallo machen und die andere mit dem OnKlick auf Button1 verweisen ..aber wie macht man dass wenn ich dazu noch verschiedene aufgaben für jeden button habe... außerdem müsste ich dann immer im OnKlick Ereignis die Verweise auf Button1 eintragen ...und das mehr als 100 mal .... das ist doch doof ..wie gehts schneller??
Und dazu würde es mich interessieren wie ich die Button ohne sie einzeln von der Symbolleiste holen muss in die Form einfügen kann .. mit definiert Position....