Verwendung der Variablen "Handle" aus Unit "Controls" in Klasse funktioniert nicht

[DeddyH]

Wovon ist denn Deine Klasse abgeleitet?

[himitsu]

Normaler Weise wird ja vorher (sollte man zumindestens am Anfang machen) via inherited die Vorfahrenklasse eingerichtet, womit also die Grundlagen für ein Handle gelegt werden. Im Getter von .Handle wird dann über .HandleNeeded geprüft, ob es existiert und wenn nicht, dann wird Eines erstellt.

Aber dafür muß es aber auch ein Handle geben.
Also wenn du keines einrichtest/erzeugst, dann muß die Vorfahrenklasse dafür ausgelegt sein ... also es muß irgendwo von TWinControl abgeleitet worden sein.

TForm hat dieses als Vorfahre und darum gibt es dort auch das Property .Handle .
Deine Klasse wurde anscheinend nicht von sowas abgeleitet und darum gibt's da auch kein Handle (das wurde dir aber auch schon mehrmals gesagt).
Lösung:
- anderer Vorfahre
- oder man besorgt sich das nötige Handle wo anders (auch dieses wurde dir schon vorgeschlagen)
- oder man erstellt sich extra ein MessageOnlyWindows (und nimmt dessen Handle), wenn man Messages empfangen muß
- oder man kommt ohne soein Handle aus

[Andreas L.]

Warum nicht das Applikations-Handle verwenden?

Delphi-Quellcode:

[
uses
  ..., Forms;

...

begin
  h := Application.Handle;
  ...
end;

[FriendOfDelphi]

Zitat von himitsu:

Normaler Weise wird ja vorher (sollte man zumindestens am Anfang machen) via inherited die Vorfahrenklasse eingerichtet, womit also die Grundlagen für ein Handle gelegt werden. Im Getter von .Handle wird dann über .HandleNeeded geprüft, ob es existiert und wenn nicht, dann wird Eines erstellt.

Das habe ich mit inherited Create; auch gemacht. Der Konstruktor wird so eingeleitet constructor TKlassenName.Create;

Zitat von himitsu:

Aber dafür muß es aber auch ein Handle geben.
Also wenn du keines einrichtest/erzeugst, dann muß die Vorfahrenklasse dafür ausgelegt sein ... also es muß irgendwo von TWinControl abgeleitet worden sein.

Wie kann ich das prüfen, bzw. herausfinden?

Zitat von himitsu:

TForm hat dieses als Vorfahre und darum gibt es dort auch das Property .Handle .
Deine Klasse wurde anscheinend nicht von sowas abgeleitet und darum gibt's da auch kein Handle (das wurde dir aber auch schon mehrmals gesagt).
Lösung:
- anderer Vorfahre
- oder man besorgt sich das nötige Handle wo anders (auch dieses wurde dir schon vorgeschlagen)
- oder man erstellt sich extra ein MessageOnlyWindows (und nimmt dessen Handle), wenn man Messages empfangen muß
- oder man kommt ohne soein Handle aus

Tut mir leid, dass ich hier anscheinend so dumme Fragen stelle.
Ich verstehe das wahrscheinlich noch nicht.
Kann ich hier irgendwo etwas darüber nachlesen, damit ich konkretere Fragen stellen kann?

[DeddyH]

Nochmal: wovon ist Deine Klasse abgeleitet?

[FriendOfDelphi]

Zitat von DeddyH:

Wovon ist denn Deine Klasse abgeleitet?

Vielleicht ist das der Fehler!?
Ich habe das so gemacht: TKlassenName = class(TObject) .

[DeddyH]

Nicht TObject, sondern TWinControl, dann hast Du auch ein Handle.

[FriendOfDelphi]

Zitat von DeddyH:

Nicht TObject, sondern TWinControl, dann hast Du auch ein Handle.

Ja, dass war der entscheidende Hinweis.
Das Handle ist nun bekannt.

Ich erhalte dann folgende Fehlermeldung vom Compiler: "Nicht genügend wirkliche Parameter" für die Zeile mit dem inherited Create; .
Da meine Klasse nun eine Erweiterung der TWinControl-Klasse, bzw. von dieser abgeleitet ist, muss hier die Create-Methode von TWinControl verwendet werden. Richtig?
Die ist so deklariert: constructor Create : procedure(AOwner: TComponent) .

Welchen Parameter muss ich denn in die Klammern des Create schreiben?

[DeddyH]

Was macht denn das "procedure" da? Normalerweise sieht das so aus:

Delphi-Quellcode:

type
  TBlubb = class(TwinControl)
  ...
  public
    constructor Create(AOwner: TComponent); override;

[FriendOfDelphi]

Zitat von DeddyH:

Was macht denn das "procedure" da? Normalerweise sieht das so aus:

Delphi-Quellcode:

type
  TBlubb = class(TwinControl)
  ...
  public
    constructor Create(AOwner: TComponent); override;

Nein, nein, dass habe nachgeguckt, indem ich TWinControl. in der IDE eingegeben habe. Der Compiler macht ja dann Vorschläge, welche Methoden es in TWinControl gibt. Und für Create hat er eben die Deklaration constructor Create : procedure(AOwner: TComponent) genannt.

Ich habe das so gemacht:

Delphi-Quellcode:

[...]
TBlubb = class(TWinControl)
[...]
  public
    constructor Create;
[...]
constructor TSoftSPS.Create;
var
  i, j: integer;
begin
  inherited Create;
[...]

Und da meldet der Compiler dann in der Zeile mit dem inherited Create; : "Nicht genügend wirkliche Parameter".