Auswahl von Elementen mittels mouseover

[guevaradelaserna]

Hallo!
Habt ihr vll ne Idee wie man die Auswahl von Elementen mittels eines mouseovers realisieren kann. D. h. dass nach einer gewissen Zeit in der sich der Mauszeiger auf dem Element befindet der Button aktiviert wird. Danke für jeden Hinweis.

Che

[DeddyH]

Evtl. mit einem Timer und der Funktion FindVCLWindow?

[DeddyH]

Hab gerade mal ein wenig rumgespielt.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Memo1: TMemo;
    RichEdit1: TRichEdit;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
    FControl: TWinControl;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FControl := nil;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var CurrControl: TWinControl;
begin
  Timer1.Enabled := false;
  CurrControl := FindVCLWindow(Mouse.CursorPos);
  if Assigned(CurrControl) and (CurrControl <> FControl) and CurrControl.CanFocus then
    begin
      CurrControl.SetFocus;
      FControl := CurrControl;
    end;
  Timer1.Enabled := true;
end;

end.

[guevaradelaserna]

Hey!

Danke für die Antwort. Sie hat mir sehr geholfen :-D