Funktion einem OnClick allen Komponenten eines Typs zuweisen

[zecke]

Nun wie die Titelzeile verrät, fehlen mir da etwas die Suchbegriffe. Zumindest finde ich nichts Passendes, wobei ich vermute es ist recht simpel.

Ich habe 15 UpDowns und möchte diese alles mit der selben Funktion im OnClick ausstatten. Ich möchte nicht den Funktionsaufruf in jedem OnClick einzeln eintragen.


Kann jemand helfen?

[kaiser1401]

Mh, ich denke du könntest durch deine Componenten (z.B. auf dem Form) durchiterieren und jeweils vergleichenob es sich um ein UpDown Objekt handelt. falls ja, Casten und entsprechend das OnClick zuweisen ... Oder?

[zecke]

Nun ich gehe mit einer For-Schleife die UpDowns mit FindComponent durch, ich bekomme es nur nicht hin die eine Funktion im OnClick für alle zuzuweisen :/

[DeddyH]

TUpDown(Components[Laufvariable]).OnClick := Methode; Dabei muss die Methode aufrufkompatibel sein.

[zecke]

Hallo,

ja so ähnlich hatte ich es probiert, ich poste am besten mal den Code:

Die Prozedur, welche mit jedem UpDown.OnClick assoziiert werden soll:

Delphi-Quellcode:

procedure Form1.UpDownSwitch(Sender: TObject; Button: TUDBtnType);
begin
If (Button=btNext) and (AllCount>0) and (shortint(TUpdown(Sender).Position)<11) then
begin
  AllCount:=AllCount-1;
  Form1.Edit1.Text:=IntToStr(AllCount);
end;
If (Button=btPrev) and (AllCount<60) and (shortint(TUpdown(Sender).Position)>-1) then begin
  AllCount:=AllCount+1;
  Form1.Edit1.Text:=IntToStr(AllCount);
end;
end;

Und hier mein Versuch, es im OnShow der Form1 zu machen:

Delphi-Quellcode:

for i := 1 to 15 do begin
  (Form1.FindComponent('UpDown'+IntToStr(i)) as TUpDown).OnClick:=UpDownSwitch();
end;

ungenügend wirkiche parameter. Problem ist, wie kann ich Sender und Button auch im OnShow übergeben, weil wenn ich "UpDownSwitch(Sender,Button)" nehme, kennt er es ja logischweise nicht.

Danke im voraus

[Hawkeye219]

Hallo zecke,

du brauchst nur die leeren Klammern zu entfernen:

(FindComponent('UpDown' + IntToStr(i)) as TUpDown).OnClick := UpDownSwitch; Ich habe das überflüssige Form1 gleich mit entfernt. Das schafft nur Probleme, falls du mehrere Instanzen einer Formularklasse hast.

Was spricht eigentlich dagegen, alle UpDown-Controls im Designer zu markieren und ihnen dann eine gemeinsame Behandlungsroutine zuzuweisen?

Gruß Hawkeye

[zecke]

Also wenn ich dein Beispiel übernehme, erhalte ich "E2009 Inkompatible Typen: 'Methodenzeiger und reguläre Prozedur'"

Delphi-Quellcode:

procedure UpDownSwitch(Sender: TObject; Button: TUDBtnType);
begin
 If (Button=btNext) and (AllCount>0) and (shortint(TUpdown(Sender).Position)<11) then
  begin
   AllCount:=AllCount-1;
   Form1.Edit1.Text:=IntToStr(AllCount);
  end;
 If (Button=btPrev) and (AllCount<60) and (shortint(TUpdown(Sender).Position)>-1) then
  begin
   AllCount:=AllCount+1;
   Form1.Edit1.Text:=IntToStr(AllCount);
  end;
end;

Delphi-Quellcode:

for i := 1 to 15 do begin
  (FindComponent('UpDown'+IntToStr(i)) as TUpDown).OnClick:=UpDownSwitch;
end;

Zitat von Hawkeye219:

Was spricht eigentlich dagegen, alle UpDown-Controls im Designer zu markieren und ihnen dann eine gemeinsame Behandlungsroutine zuzuweisen?

Eigentlich nur die Klick-Arbeit und ich finde es schöner, es direkt im Code behandelt zu haben. Ist also nur eine kosmetische/subjektive Sache.

[marabu]

Hi zecke,

Hawkeye hat das Form1 vor dem Aufruf von FindComponent() entfernt, UpDownSwitch() muss bei dir natürlich weiterhin eine Methode von Form1 bleiben. Nur innerhalb von Form-Methoden sollst du auf die Form-Variable verzichten.

Grüße vom marabu

[zecke]

hi,

also das bei "procedure UpDownSwitch", das habe ich geändert, weil mit einem "procedure Form1.UpDownSwitch.." noch mehr Probleme habe ^^

Es sieht jetzt genau so aus:

Delphi-Quellcode:

uses blabla...
...
procedure UpDown15Click(Sender: TObject; Button: TUDBtnType);
procedure UpDownSwitch(Sender: TObject; Button: TUDBtnType);
procedure Button1Click(Sender: TObject);
...
...
procedure Form1.UpDownSwitch(Sender: TObject; Button: TUDBtnType);
begin
If (Button=btNext) and (AllCount>0) and (shortint(TUpdown(Sender).Position)<11) then
begin
  AllCount:=AllCount-1;
  Form1.Edit1.Text:=IntToStr(AllCount);
end;
If (Button=btPrev) and (AllCount<60) and (shortint(TUpdown(Sender).Position)>-1) then begin
  AllCount:=AllCount+1;
  Form1.Edit1.Text:=IntToStr(AllCount);
end;
end;
...
...
procedure TForm1.FormShow(Sender: TObject);
...
for i := 1 to 15 do begin
  (FindComponent('UpDown'+IntToStr(i)) as TUpDown).OnClick:=UpDownSwitch;
end;

end;

Dann erhalte ich Bezeichner redefiniert (bei Form1), undefinierte bezeichner bei sender und button, 3 mal operator nicht auf diesen operandentyptypen anwendbar und zuletzt "E2065 Ungenügende Forward- oder External-Deklaration: 'TForm1.UpDownSwitch'".
Entferne ich das "Form1", dann erhalte ich die letzte Meldung nur bei der Deklaration oben unter Uses. Wenn ich diese Zeile auskommentiere bin ich wieder bei "E2009 Inkompatible Typen: 'Methodenzeiger und reguläre Prozedur'", wie in meinem vorigen Post beschrieben.

Bin nicht gerade der erfahrene Programmierer ^^ lasst Gnade walten

[dominikkv]

ereignissroutinen können nur Methoden sein, dh innerhalb einer klasse definiert sein.

probiers mal so:
procedure [b]TForm1[/b].UpDownSwitch(Sender: TObject; Button: TUDBtnType);