Scrollen mal anders...

[angos]

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