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

[FriendOfDelphi]

Hallo Allerseits,

ich habe eine Frage zu der Variablen "Handle".

Wenn ich mit dem Mauszeiger in der IDE über die Variable fahre, erhalte ich die Information "prop TWinControl.Handle - Control.pas".
Sofern ich dies richtig interpretiere, dann bedeutet dies, dass diese Variable in der Delphi Standard Unit "Controls" definiert ist.

Soweit so gut.

Ich habe nun folgendes Problem:

Schreibe ich ein Programm, in welchem die Variable "Handle" verwendet wird prozedural, also mit Funktionen und Prozeduren, so funktioniert alles fehlerfrei.

Nun möchte ich das Programm auf Klassen und Objekte umstellen.
Sobald ich den Programmteil, der die Variable "Handle" enthält in eine Klasse auslagere, erhalte ich die Fehlermeldung "Undefinierter Bezeichner: 'Handle'" vom Compiler, obwohl ich natürlich unter uses Controls mit eingebunden habe.

Weiß jemand von Euch was ich falsch mache?

[himitsu]

Zitat:

verwendet wird prozedural, also mit Funktionen und Prozeduren, so funktioniert alles fehlerfrei.

Sicher daß du prozedual meinst und nicht "Methode meiner Form" ?

Handle in soeiner Methode entspricht self.Handle , also z.B. Form1.Handle ... jedes (fast) WinControl enthält ein "Handle", bzw ein Property names Handle, über welches man von der VCL auf das enthaltene/gekapselte Windows-Control zugreifen kann.

[FriendOfDelphi]

Zitat von himitsu:

Sicher daß du prozedual meinst und nicht "Methode meiner Form" ?

Ja, richtig. Ist in einer ganz normalen procedure TForm1.FormCreate(Sender: TObject);

Zitat von himitsu:

Handle in soeiner Methode entspricht self.Handle , also z.B. Form1.Handle ... jedes (fast) WinControl enthält ein "Handle", bzw ein Property names Handle, über welches man von der VCL auf das enthaltene/gekapselte Windows-Control zugreifen kann.

Nun habe ich mir eine Klasse gebaut und will das Ganze im Konstruktor unterbringen:
constructor TKlassenName.Create; Die Funktion selbst sieht so aus:

Delphi-Quellcode:

AdsResult :=AdsSyncAddDeviceNotificationReq( @LocalAddr,
                 ADSIGRP_SYM_VALBYHND,
                 varDaHandle,
                 @adsNotificationAttrib,
                 @NotificationCallback, Handle, @hNotificationDa );

Vielleicht habe ich Dich noch nicht richtig verstanden, aber die vorgeschlagene Änderung von Handle in self.Handle , bzw. TKlassenName.Handle funktioniert so nicht.
.Handle ist nicht bekannt.

[blackfin]

Das CodeInsight sagt dir ja nur, dass "handle" deines Controls in der unit "classes.pas" deklariert ist.
Handle ist hier die Eigenschaft des Controls, aber nicht der Variablen-Typ.
Der ist nämlich HWND und ist in der unit windows deklariert.

Edit:
Wenn deine Klasse nicht von TWinControl abgeleitet ist, dann hat sie auch kein Handle.
In deiner FormCreate()-Funktion bezieht sich ja das Handle auf das der Form, nicht deiner Klasse.
Brauchst du das Handle der Form in der Klasse, musst du diese dem Konstruktor übergeben, z.B:

Delphi-Quellcode:

constructor TKlassenName.Create(AOwner: TWinControl);
begin
 AdsResult :=AdsSyncAddDeviceNotificationReq( @LocalAddr,
                 ADSIGRP_SYM_VALBYHND,
                 varDaHandle,
                 @adsNotificationAttrib,
                 @NotificationCallback, AOwner.Handle, @hNotificationDa ); 
end;

Und in der Form rufst du den Konstruktor dann mit
Klasse := TKlassenName.Create(self); auf.

[himitsu]

Zitat von FriendOfDelphi:

Ja, richtig. Ist in einer ganz normalen procedure TForm1.FormCreate(Sender: TObject);

also sind es Methoden

Tja, und das Handle gehört nunmal zu deiner TForm1-Klasse.

Self ist immer die Klasse, bzw. das Objekt, in welcher sich die Methode befindet.
Also das Self in deiner TKlassenName zeigt auf die TKlassenName (bzw. auf das davon erstellte Objekt).
Und das Self in deiner TForm1 zeigt auf das TForm1-Objekt.

Zitat:

bzw. TKlassenName.Handle funktioniert so nicht.

.Handle ist ein Property des Objekts und nicht ein Class-Property der Klasse ... es ist also nur über ein Objekt erreichbar.

nicht TKlassenName.Handle sondern ({Objekt von TKlassenName}).Handle

[FriendOfDelphi]

Zitat von himitsu:

Zitat:

bzw. TKlassenName.Handle funktioniert so nicht.

.Handle ist ein Property des Objekts und nicht ein Class-Property der Klasse ... es ist also nur über ein Objekt erreichbar.

nicht TKlassenName.Handle sondern ({Objekt von TKlassenName}).Handle

Ja, aber es besteht doch zu dieser Zeit noch kein Objekt.
Der Compiler meldet den Fehler in der Definition des Konstruktors.

[DeddyH]

Wovon ist denn Deine Klasse abgeleitet?