Button OnClick Probleme

[MrOuzo]

Hallo,


ich habe ein kleines Programm geschrieben, das ein Script laden kann und dieses dann interpretiert. Auf dem Form gibt es ein Start und ein Stop Button. Die Buttons werden über eine Actionlist benutzt. Ich verwende in der Schleife, die mir das Script abarbeitet auch mehrmals Application.ProcessMessages um die Kontrolle an das Programm zu übergeben.

Nun mein Problem:

Die Ereignisroutine des Stop Buttons die auf OnClick liegt wird nur angesprungen wenn ich mit der Maus wie wild auf dem Button rumclicke, irgendwann wird dann mal das Ereignis OnClick ausgelöst und mein Programm stoppt. Lege ich eine OnMouseDown Routine an, wird diese sofort angesprungen wenn ich das erste mal klicke, dann rufe ich darin zum testen die OnClick Routine auf.

Delphi-Quellcode:

Procedure TScriptFRM.StopScriptActExecute(Sender: TObject);  // Routine liegt auf OnClick
Begin
  Data.RunStatus := rsStop;
  RunScriptButton.Action := RunScriptAct;
End;

procedure TScriptFRM.ScriptStopButtonMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
    StopScriptActExecute(Sender);
end;

Hat jemand eine Idee wiso meine OnClick nicht funktioniert ?

Gruß
MrOuzo

[MrOuzo]

Hi,

hab das Problem gelöst, in meiner Hauptschleife zum Abarbeiten des Scriptes war eine Anweisung Setfocus aud das Memo. Dies hat dazu geführt, dass der Button nicht mehr klickbar wurde. Habe die Anweisung entfernt und jetzt gehts


Gruß
MrOuzo

[Jelly]

Besser als Application.ProcessMessages, weil wesentlich CPU schonender, ist die Verwendung eines getrennten Threads. Denn, alles, was zwischen 2 Aufrufen von Application.ProcessMessages passiert, blockiert erst mal deine Anwendung. Und alle 10ms den Befehl aufrufen lässt die CPU auf 80% hochschnellen.

Deshalb gilt eigentlich immer, bei solch längeren Arbeiten oder Berechnungen: Auslagern in einen getrennten Thread.