Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by uwewo,
13. Apr 2007
Ich gebe Dir ja Recht und habe es auch ausprobiert, das Problem ist das MouseMove auch beim Klick ausgeführt wird, und deshalb LastFocus = ListBox ist.
Ansonsten wäre es OK. :?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by uwewo,
13. Apr 2007
Stimmt, funktioniert leider nicht, nur wenn Du die Maus beim Klick nicht bewegst,das ist allerdings fast unmöglich.
Das hier funktioniert allerdings doch, Dank himitsu :wink:
var
Form1: TForm1;
LastFocus : TWinControl;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by uwewo,
13. Apr 2007
Bin mir jetzt auch nicht sicher, aber wenn MouseMove Eintritt, hat in diesem Moment doch ein anderes Steuerelement den Focus. Dieses wird in LastFocus gespeichert un nach MouseUp wieder übergeben.
Ok, vielleicht ist ja auch falsch.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by uwewo,
13. Apr 2007
Vielleicht so
procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
LastFocus := Form1.ActiveControl;
end;
procedure TForm1.ListBox1MouseUp(Sender: TObject; Button: TMouseButton;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by uwewo,
13. Apr 2007
Hallo Martin,
falls es sich um einen Button handelt, wäre es das einfachste Du verwendest einen SpeedButton, da dieser von Hause aus keinen Focus erhält.