Events von Objekten, die während der Laufzeit erzeugt werden

[stiftII]

Zitat:

[Error] Unit1.pas(190): Incompatible types: 'TNotifyEvent' and 'Procedure'

Werd ich auf jeden fall machen. Würde nur erstmal gerne das Problem hier lösen.

Also hab die Prozedur in meiner Klasse eingetragen, und dann erstellt, wenn ich sie dann dem ereignis
(names[i].onclick = meineklasse.MyLabelsClick) zuweise kommt diese Fehlermeldung (siehe oben).

~stift

[himitsu]

Wie sieht deine Funktionsdefinition nun aus?

siehe Beitrag #10

[stiftII]

Hallo nochmal himitsu.

Das ganze sieht bei mir nun so in etwa aus.

Delphi-Quellcode:

type

  myThread = class(TThread)
  fSleepRequest : Boolean;
  IdHTTPLT: TIdHTTP;
  procedure MyLabelsClick(Sender: TObject);
  protected
    procedure Execute; override;
  Public
    Procedure GotoSleep;
    Procedure WakeUp;
  end;

......



procedure mythread.MyLabelsClick(Sender: TObject);
begin
  (Sender as TLabel).Color := clRed;
end;

procedure mythread.execute;
var
  Names : Array [0..5] of TLabel;
begin
//Objekte erzeugen
  for i:=0 to high(names) do
  begin
    Names[i] := TLabel.Create(Form1);
    Names[i].OnClick :=  mythread.MyLabelsClick;
  end;

//anzeigen
  for i:=0 to high(names) do
    Names[i].Parent:=Form1;

[himitsu]

mythread.MyLabelsClick wäre für eine Klassen-Procedur
du brauchst aber eine Objekt-Prozedur

in deinem Fall
Names[i].OnClick := self.MyLabelsClick; und das Self. kann man hier auch weglassen

[stahli]

... und damit das im Quelltext schneller ersichtlich wird, solltest Du Deine Klasse

TMyThread = class(TThread) nennen.

Das ist zwar nicht zwingend erforderlich, aber den Delphi-Konventionen entsprechend.

MyThread sieht eben nach einer Objektinstanz aus.
Bei TMyThread vermutet man schon eher einen Typ oder eine Klasse.

[stiftII]

Danke, das macht Sinn!.

Funktioniert zudem noch wunderbar .

~stift