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.