Hallo,
folgende Ausgangslage:
Ein Tlabel an Position 100,100
Eine OnMouseEnter Event mit folgendem Inhalt:
Delphi-Quellcode:
begin
ShowMessage('Der Event ist angekommen !')
end;
Ein Tbutton mit folgendem OnClick-Event:
Delphi-Quellcode:
begin
Mouse.CursorPos:=ClienttoScreen(Point(101,101));
end;
Bei Click auf Button, kein Problem: Die Message wird angezeigt!
Wenn in OnClick jetzt aber folgendes steht:
Delphi-Quellcode:
begin
Mouse.CursorPos:=ClienttoScreen(Point(101,101));
while true do
begin
Application.ProcessMessages;
end;
end;
bewegt sich zwar der Cursor, aber der Event wird nicht ausgelöst!
Also meine Frage: Wieso
Hintergrund:
Im echten Programm steht natürlich nicht die Endlosschleife "while true", sondern heir wird in einer Schleife Daten "gepollt", und es soll entprechend der Daten (von einem Eyetracker ... aber das würde jetzt hier zu weit führen) der Cursor psoitioniert werden und aber auch Ereignisse ausgelöst werden.
[edit=sakura] Space in die Überschrift eingesetzt. Mfg, sakura[/edit]