Ab wann darf ein Fensterhandle verwendet werden?

[Dosenelepfand]

Hallo!

Ich schreibe derzeit eine eigene Komponente und benötige für sie einen Timer. Jedoch erhalte ich einen Laufzeit-Fehler, wenn ich diesen Timer innerhalb der Create-Methode der Komponente über Aufruf von SetTimer zu erzeugen versuche. Dies ist nicht der erste derart fehlgeschlagene Versuche der Verwendung einer Funktion, die ein Handle des Fensters übernimmt, das anscheinend noch nicht verwendet werden darf.

Meine Frage nun: wo sollte ich stattdessen derartige Initialisierungen vornehmen?


Liebe Grüße,
Hanno

[Luckie]

Der Fehler muss wo anders liegen, schlägt eine API Funktion fehl, SetTimer ist eine, wird in der Regel ein Fehlercode zurückgegeben und keine Exception ausgelöst oder ähnliches. Der Laufzeitfehler deutet eher daraufhin, dass du auf einen ungültigen Speicherbereich zugreifst, denke ich mal.

[Dosenelepfand]

Hallo!

Ich erzeuge meine Komponente testweise zur Laufzeit in einem Formular.

Delphi-Quellcode:

procedure TfrmSH.FormCreate(Sender: TObject);
begin
  inherited;
  Editor := TSyntaxEditorComponent.Create(self);
  Editor.parent     := self;
  Editor.Top        := 10;
  Editor.Left       := 10;
  Editor.Width      := 800;
  Editor.height     := 550;
  Editor.Visible    := true;
  ActiveControl     := Editor;
end;

Die besagten Aufrufe, z.B. von SetTimer, befinden sich nun im Konstruktor meiner Klasse TSyntaxEditorComponent.

Erzeuge ich die Komponente bereits falsch?


Liebe Grüße,
Hanno

[SirThornberry]

wie sieht der constructor der Komponente aus. Wie Luckie bereits sage lösen Api-Funktionen keine Exception aus (und SetTimer ist so eine Funktion) sondern liefern Fehlercodes zurück. Es ist also zu vermuten das dein SetTimer etwas anderes ist als die Api-Funktion SetTimer. Daher wäre der Constructor interessant

[Dosenelepfand]

Hallo.

Der Konstruktor sieht so aus:

Delphi-Quellcode:

constructor TSyntaxEditorComponent.Create(aOwner: TComponent);
begin
  inherited;
  
  ...

  SetTimer(Handle,1,200,0);
end;

Der Fehler, der mir ausgegeben wird, ist "Element hat kein übergeordnetes Fenster". Daher glaube ich nicht, dass es etwas speziell mit dem Funktionsaufruf selbst, sondern eher mit dem Zeitpunkt, an dem ich die Funktion aufrufe.

Liebe Grüße,
Hanno

[SirThornberry]

im Constructor selbst hat das Object noch kein Handle. Das wird frühestens beim setzen des Parent zugewiesen da es vorher kein sinn macht. Wenn du aber schon mit der VCL arbeitest würde ich nicht SetTimer nutzen sondern im Private einfach einen TTimer plazieren und diesem im Constructor erzeugen.

[Dosenelepfand]

Hallo.

Okay, danke für deine Antwort - genau so etwas, wie du es sagtest (Handle wird erst zugewiesen, wenn dieses und jenes getran wurde) habe ich mir erhofft.


Liebe Grüße,
Hanno

[Sunlight7]

Alternativ zu TTimer kannst Du auch folgendes versuchen...

Delphi-Quellcode:

constructor TSyntaxEditorComponent.Create(aOwner: TComponent);
begin
  inherited;
 
  ...

  Owner:=TWinControl(AOwner);
  SetTimer(Self.Handle,1,200,0);
end;

... oder SetTimer in der "Loaded" procedure setzen.