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
