Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#5

Re: Tabs erzeugen bei Ereignis im 2. Thread

  Alt 17. Mär 2006, 07:32
Herzlich willkommen in der Delphi-PRAXiS, kcore.

Bevor du die Methode eines Objektes benutzen kannst, musst du das Objekt erzeugen. In deinem Beispiel gehört die thread Variable in die private section der Form:

Delphi-Quellcode:
...
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,
  AppClasses; // hier steckst du deine Typen rein

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    DrawThread: TTestThread;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  DrawThread := TDrawThread.Create(false);
end;
Auf diese Weise beginnt dein thread sofort mit seiner Arbeit, bis er mit Suspend() aus dem Rennen genommen wird - mit Resume() kann er dann wieder aktiviert werden. Du solltest dir aber den thread Verwendung von TThread in der Online-Hilfe gut durchlesen, sonst stolperst du von einer Falle in die nächste.

Und versuche die automatischen Namen möglichst sofort durch eigene Namen zu ersetzen - es erleichtert das Verständnis für deinen Quellcode, wenn da TelefonEdit statt Edit42 zu lesen ist.

Freundliche Grüße vom marabu
  Mit Zitat antworten Zitat