Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Pichel,
3. Jan 2006
Hab jetzt mal auf die Schnelle rumgespielt:
var myButton : TObject;
procedure TaForm.btMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (Sender.ClassType = TButton)
and (Button = mbLeft) then begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Pichel,
3. Jan 2006
Wenn ich das richtig verstanden habe, so soll ich also einfach die DragDrop-Funktionen beiseite lassen und im OnMouseDown mir den TButton merken. Im onMouseUp dann entweder die Buttons-Tauschen (in meinem konkreten Fall) oder den Click ausführen.
Klingt irgendwie gut, hätte ich bei den unzähligen Versuchen eigentlich drauf kommen müssen, aber auf die einfachsten Dinge kommt man meistens nicht ...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Pichel,
3. Jan 2006
Hallöchen.
Habe mich jetzt schon unsagbar lange damit rumgeschlagen (probieren, im Forum suchen etc) aber es geht nicht.
Wenn ich TButton Controls per DragDrop verschieben will, um Ihre Reihenfolge zu verändern gibt es da ein großes Problem.
Das OnClick des Button sowie das PopUpMenü wird benutzt.
Normalerweise würde ich es so machen: (natürlich DragMode auf dmAutomatic setzen)