Komponente entwickeln- Deklarationen finden

[haentschman]

Hallo alle...

- ich habe mich mal an meine erste eigene Komponente gemacht. :thumb:
- es soll ein Planer werden, der auf meine Bedürfnisse zugeschnitten ist. (TMS Planner und TVPlanIt habe ich probiert)

:?: hättet ihr einen Link zu einem ausführlichem Tutorial ? Google wirft zwar diverse Ergebnisse aber nichts ausführliches (oder ich bin blind :gruebel: )

1.Problem:
- ich habe die Komponente von TPanel abgeleitet.
- ich möchte die procedure Resize überschreiben. Dazu muß ich ja die Originaldeklaration wissen.
- wenn ich mit Ctrl-Mausklick auf TPanel bin ----> ExtCtrls.pas nicht gefunden (ist ja im Package irgendwo)

:?: wie finde ich die Deklaration heraus.


PS: ich bitte um Nachsicht, bin in der Lernphase :-D

[bitsetter]

Hi,

das steht bei mir in der Onlinehilfe Resize (Methode von TControl).

[haentschman]

...dann zeige mir bitte aus der OH von D2007 die Deklaration von Resize des TPanel.

Delphi Hilfe:

Zitat:

Wird direkt nach einer Größenänderung des Steuerelements ausgelöst.

Pascal
property OnResize;
Beschreibung
Mit Hilfe einer Ereignisbehandlungsroutine für OnResize können Sie nach dem Ändern der Größe eines Steuerelements abschließende Anpassungen vornehmen.

Um die Reaktion eines Steuerelements auf Größenänderungen zu steuern, verwenden Sie OnCanResize oder OnConstrainedResize.

Anmerkung: Einige Steuerelemente rufen diese Ereignisbehandlungsroutine bei der erstmaligen Erzeugung des Steuerelements auf.

wenn ich:

Delphi-Quellcode:

constructor Resize; override;

Fehler: Deklaration von Resize unterscheidet sich von vorhergehender Deklaration

PS: TControl hat laut OH keine Methode Resize.

[bitsetter]

In der Hilfe von Delphi 6 steht:

Zitat:

Resize (Methode von TControl)

Die Methode Resize antwortet auf eine Größenänderung des Steuerelements.

Delphi-Syntax:

procedure Resize; dynamic;


Beschreibung

Die Methode wird direkt nach einer Größenänderung des Steuerelements automatisch aufgerufen. Gemäß der Implementierung in TControl ruft sie die Behandlungsroutine für das Ereignis OnResize des Steuerelements auf (falls definiert).

Delphi 2007 habe ich leider nicht.

Edit: in Delphi 2006 steht übrigens das selbe drin.

[haentschman]

Trotzdem Danke für Deine Bemühungen.

...mir ging es eigentlich um das allgemeine. Wie deklariere ich richtig ? Wo finde ich die Informationen ? Das mit dem Resize war jetzt nur der Anfang. :wink:

wieso liefert

Delphi-Quellcode:

constructor Resize; override;

dann den Fehler: Deklaration von Resize unterscheidet sich von vorhergehender Deklaration

...viel zu lernen ! :roll:

Zitat:

Um eine Methode zu überschreiben, braucht sie nur mit der Direktive override erneut deklariert zu werden. Dabei müssen Reihenfolge und Typ der Parameter sowie der Typ des Rückgabewertes (falls vorhanden) mit der Deklaration in der Vorfahrklasse übereinstimmen.

:?: wo finde ich die Deklaration der Vorfahrklasse (wenn Ctrl-Klick nicht zur entsprechenden .pas führt)

[mkinzler]

Resize ist auch kein Konstruktor.

[haentschman]

:oops: procedure oder ?

[mkinzler]

Ja.

[haentschman]

Danke...Resize haben wir :wink:

Was bedeutet "Elemet hat kein übergeordnetes Fenster" bei canvas.TextOut

Delphi-Quellcode:

constructor TDMPlaner.Create(aOwner: TComponent);
begin
  inherited;
  Height:= 200;
  Width:= 300;
  canvas.TextOut(1,1,'Test');
end;

...das ist doch der canvas des Panels oder ?

PS: Learnig by doing :wink:

[mkinzler]

Von was ist TDMPlaner abgeleitet? Was ist der Owner?

[haentschman]

von TPanel.

[mkinzler]

Und der Owner?

[haentschman]

TComponent :gruebel:

...ich merk schon, heftig Nachholbedarf :oops:

[mkinzler]

Nicht den Typ des Parameters, sondern den Typ des übergebenen Objekts.
Sorry: Ich meine natürlich den Parent.

[haentschman]

...ich glaube ich lese noch einmal die Grundlagen zu OOP. :oops:
...ich kann im Moment nicht richtig folgen :(

ich habe

Delphi-Quellcode:

TDMPlaner = class(TPanel)

public
    { Public-Deklarationen }
    constructor Create(aOwner: TComponent); override;

constructor TDMPlaner.Create(aOwner: TComponent);
begin
  inherited;
  Height:= 200;
  Width:= 300;
  canvas.TextOut(1,1,'Test');
end;

das Create ist doch das Create des TPanel ?
- denn die Höhe und die Breite werden angepaßt.
- das canvas ist doch dann auch der canvas des Panels. Die Programmierhilfe zeigt ja TextOut an. :gruebel:

...bevor ich mich noch weiter blamiere, lese ich lieber noch einmal :oops:

Zitat:

Ich meine natürlich den Parent.

der Parent ist doch die Form, wo ich die Komponente draufsetze :gruebel:

[mkinzler]

Der Canvas hängt aber vom Canvas des Parents ab. der Parent muss deshalb auch einen Canvas haben.

[haentschman]

das Formular hat doch einen canvas :gruebel:

...ich hätte aber gern den Text in der Komponente sprich auf TDMPlaner.

[mkinzler]

Hast du dieses als Parent zugewiesen?

[haentschman]

Zitat:

Hast du dieses als Parent zugewiesen?

...nein :oops:

wo/wie :gruebel:

[mkinzler]

Delphi-Quellcode:

<Kompo>.Parent := <Form>;

Wie erzeugst du das Objekt

[haentschman]

die Komponente soll eine visuelle Entwurfszeit Komponente werden.

- der Quelltext der "Komponente" läßt sich fehlerlos compilieren .
- Beim einfügen der Komponente auf ein Testformular kommt der Fehler.

[FAlter]

Hi,

zuerst muss die Komponente erzeugt werden, bevor ihr ein Parent zugewiesen werden kann. Das bedeutet, im Konstruktor, wo die Komponente ja gerade erzeugt wird, gibt es noch keinen Parent, da die Zuweisung erst später erfolgen kann. Daher kannst du dort auch nicht auf Parent/Canvas/ ... zugreifen.

Es wäre empfehlenswert, die Methode Paint zu überschreiben und dort Canvas zu benutzen.

Mfg
FAlter

[haentschman]

Zitat:

Es wäre empfehlenswert, die Methode Paint zu überschreiben und dort Canvas zu benutzen.

...damit gehts :thumb:
...wieder was gelernt.

ich muß mich halt an alles ranarbeiten :wink:

Danke...