Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by zecke,
18. Sep 2007
Aaah, verstanden :mrgreen:
Mit TForm1 klappt es :)
:thumb:
Danke, an alle Helfer :)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by zecke,
18. Sep 2007
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:
uses blabla...
...
procedure UpDown15Click(Sender: TObject; Button: TUDBtnType);
procedure UpDownSwitch(Sender: TObject; Button: TUDBtnType);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by zecke,
18. Sep 2007
:hi:
Also wenn ich dein Beispiel übernehme, erhalte ich "E2009 Inkompatible Typen: 'Methodenzeiger und reguläre Prozedur'" :gruebel:
procedure UpDownSwitch(Sender: TObject; Button: TUDBtnType);
begin
If (Button=btNext) and (AllCount>0) and (shortint(TUpdown(Sender).Position)<11) then
begin
AllCount:=AllCount-1;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by zecke,
18. Sep 2007
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:
procedure Form1.UpDownSwitch(Sender: TObject; Button: TUDBtnType);
begin
If (Button=btNext) and (AllCount>0) and (shortint(TUpdown(Sender).Position)<11) then
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by zecke,
18. Sep 2007
:hi:
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 :/
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by zecke,
18. Sep 2007
:hi:
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? :mrgreen: