PostMessage Problem

[STaRDoGGCHaMP]

Hallo,
Ich habe ein kleines Problem, wenn ich mit Hilfe von PostMessage Einen simplen Klick "senden" möchte. Hier mal vereinfacht dargestellt, Mein Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := TRUE;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    PostMessage(Form1.Handle, WM_LBUTTONDOWN, MK_LBUTTON, MAKELPARAM(10, 10));
    PostMessage(Form1.Handle, WM_LBUTTONUP, 0, MAKELPARAM(10, 10));
end;

Das ganze geschieht in einem 2-Sekunden Intervall. Die Klicks werden auch "gesendet". Wenn ich jetzt allerdings während die Klicks gesendet sind beispielsweise das Fenster bewege "crasht" das ganze ein wenig (das Fenster springt zu einer ganz anderen Position). Das ist natürlich nicht optimal und ich würde gerne wissen, wie ich diesem Verhalten vorbeugen kann. Ich denke mal ich müsste irgendwie überprüfen, ob die Nachrichten-Warteschlange von der Fensterprozedur leer ist, bzw. keine anderen Nachrichten beinhaltet, welche obiges Verhalten verursachen. Irgendwelche Ideen?

MfG,
STaRDoGGCHaMP

[Björn Ole]

Vielleicht damit den Klick senden?

[STaRDoGGCHaMP]

Wäre ne gute Idee, wenn ich einen Button klicken möchte. Möchte ich aber nicht . Trotzdem vielen Dank für die Antwort

[Luckie]

Gehe ich richtig in der Annahme, dass du einen Banner oder Link auf einer Webseite anklicken willst?

[STaRDoGGCHaMP]

lol nein, ich haber überhaupt keine derartigen Absichten.

[Luckie]

Was willst du denn machen?

[STaRDoGGCHaMP]

Ich möchte lediglich mit Postmessage einen Klick in mein Formular "senden" und dabei problemlos das Fenster bewegen können. Wie gesagt, ich glaube, dass ich irgendwie überprüfen muss, ob die Nachrichten-Warteschlange der Fensterprozedur "bereit" ist, also ob keine anderen Input-Nachrichten drinne sind oder Aktionen, welche die Problematik verursachen.

[Luckie]

Ruf doch einfach das zugehörige OnClick Ereignis auf.