Timer bei fsSTAYONTOP kommt nicht durch

[easywk]

Hallo zusammen,

aus meinem Hauptform heraus erzeuge ich ein weiteres Form, dass als FormStyle fsSTAYONTOP hat und mit einem einfachen Show angezeigt wird. In diesem Zusatzform gibt es einen Timer, der enabled ist und ein Interval von 500 hat. Direkt nachdem ich das Zusatzform angezeigt habe läuft im Hauptform ein sehr zeitintensiver Rechenprozess ...

Nun mein Problem: der Timer im Zusatzform kommt nicht durch, es sieht so aus, als ob das Fenster einfach keine Rechenzeit zugeteilt bekommt. Wenn ich im Hauptform in die Rechenroutine ab und an ein Application.Processmessages einfüge, dann kommt der Timer im Zusatzform durch - aber das ist in meinen Augen keine Lösung.

Kann ich es irgendwie erreichen, dass das Zusatzform auch Rechenzeit zugeteilt bekommt? Threads sind keine Lösung, da ich auf dem Form zeichnen muss ...

Thanks for help
Bjoern

[SirThornberry]

egal wieviel Formulare du hast, sie laufen alle im gleichen Thread ab. Und während in dem Thread etwas gemacht wird können die Nachrichten nicht zeitgliche abgearbeitet werden (somit auch keine Paint-Messages, Timer-Messages etc.). Außer Application.ProcessMessages bleiben dir dann wohl nur noch Threads.

[Luckie]

Zitat von easywk:

Threads sind keine Lösung, da ich auf dem Form zeichnen muss ...

Ja und? Genau deshalb gibt es die Synchronize Methode.

[easywk]

Zitat von Luckie:

Ja und? Genau deshalb gibt es die Synchronize Methode.

Habe ich dann aber nicht wieder das gleiche Problem mit der Botschaftsschleife? Laut OH wartet Synchronize darauf, dass der Hauptthread in die Botschaftsschleife eintritt - und genau das tut der Hauptthread ja nicht

[Luckie]

Du sollst die Berechnung in einem Thread durchführen und nicht das Formular anzeigen.

[easywk]

Ok, das wäre eine denkbare Lösung. Da es aber diverse Rechenroutinen gibt wäre es gut, wenn ich dem Thread irgendwie die Routine übergeben könnte, die er ausführen soll ... wo war gleich noch dein Thread-Tutorial?

[easywk]

So, in dieser Lösung übergebe ich dem Zusatzformular die Rechenroutine. Das Formular erzeugt einen Thread, führt in diesem Thread die Rechenroutine aus und zeigt ein "Lebenszeichen" an

Delphi-Quellcode:

type
  TMsgProcedure = procedure of object;

  TMsgThread = class(TThread)
    private
    protected
      Working : Boolean;
      procedure Execute; override;
    public
      ExecProc : TMsgProcedure;
    end;

  TFormWorkMessage = class(TForm)
    LabelMsgText: TLabel;
    Label1: TLabel;
    Image1: TImage;
    ImageList1: TImageList;
    Timer1: TTimer;
  private
    { Private-Deklarationen }
    ImgIndex : Integer;
    MyThread : TMsgThread;
  public
    { Public-Deklarationen }
    procedure ShowMessageAndExec(MsgText:String;ExecProc:TMsgProcedure);
  end;

var
  FormWorkMessage: TFormWorkMessage;

implementation

{$R *.dfm}

{ TFormWorkMessage }

procedure TMsgThread.Execute;
begin
  Working:=TRUE;
  Self.ExecProc;
  Working:=FALSE;
end;

procedure TFormWorkMessage.ShowMessageAndExec(MsgText: String;
  ExecProc:TMsgProcedure);
begin
  ImgIndex:=1;
  LabelMsgText.Caption:=MsgText;
  // Thread für die Rechenoperation initialisieren
  MyThread:=TMsgThread.Create(TRUE);
  MyThread.ExecProc:=ExecProc;
  MyThread.Resume;
  Self.Show;
  // "lebenszeichen" Anzeigen und warten bis der Thread fertig ist
  repeat
    ImageList1.GetBitmap(ImgIndex,Image1.Picture.Bitmap);
    if ImgIndex<ImageList1.Count-1 then
      Inc(ImgIndex)
    else ImgIndex:=0;
    Self.Repaint;
    Sleep(250);
  until not MyThread.Working;
  // ordnungsgemäß beenden
  MyThread.Terminate;
  MyThread.WaitFor;
  MyThread.Free;
  Self.Close;
end;

Meinungen?