Hi,
nicht so kompliziert leute
er möchte doch anscheinend nur automatisch den fokus auf das element setzen, wo er mit der maus drüber fährt, also hilft wohl das hier:
Am beispiel einer checklistbox: Einfach das Ereginis OnMouseMove beschreiben mit folgendem Code:
Delphi-Quellcode:
procedure TForm1.clbBeispielChecklistBoxMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if not clbBeispielChecklistBox.Focused then
clbBeispielChecklistBox.SetFocus;
end;
// EDIT
// Mit dieser leichten Änderung kannst du eine Funktion für alle WinControls nutzen
procedure TForm1.AutofocusMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Sender is TWinControl then
if not TWinControl(Sender).Focused then
TWinControl(Sender).SetFocus;
end;
PS Willkommen in der
