Brauche Hilfe bei Komponentenentwicklung allgemein

[3_of_8]

Hallo.
Ich bin jetzt einmal in die Komponentenentwicklung eingestiegen, und Delphi dankt es mir mit AVs und regelmäßigen Abstürzen.

Das erste, das ich wissen muss, ist: Wie integriere ich eine protected Komponente in meine eigene Komponente? Z.B. ein Image, auf dessen Canvas ich zeichnen will? Die Deklaration habe ich so gemacht:

Delphi-Quellcode:

//...

interface

uses Classes, StdCtrls, Windows, SysUtils; //Sind nicht alle aufgeführt, aber im richtigen
  //Programm habe ich alle benötigten aufgeführt.

type
  TRobotPainter = class(TWinControl)
  protected
    Image: TImage;
  //...
  end;

implementation

constructor TRobot.Create(AOwner: TComponent);
begin
Image:=TImage.create(Self);
Image.Parent:=self;
image.rect(0,0,100,100);
end;

//...

end.

Das zweite ist: Wie integriere ich eine published Property (bsp: SynEdit), die nicht selbst erzeugt wird, sondern per Linkage mit TRobotPainter verknüpft wird? So in etwa, wie der Highlighter bei TCustomSynEdit?

Schonmal danke im Voraus.

[DerDan]

Kannst nicht deine Komponente von Timage ableiten?

[3_of_8]

:gruebel: Wäre eine Notlösung, aber ich würde gerne allgemein wissen, wie das geht.

[barf00s]

besser wärs vllt wenn du deine komponente von TGraphicControl ableistest und dann dessen

procedure Paint; "überschreibst"

dann kannst gleich auf dessen Canvas malern.

[QuickAndDirty]

Delphi-Quellcode:

//...

interface

uses Classes, StdCtrls, Windows, SysUtils; //Sind nicht alle aufgeführt, aber im richtigen
  //Programm habe ich alle benötigten aufgeführt.

type
  TRobotPainter = class(TWinControl)
  protected
    Image: TImage;
  //...
  end;

implementation

constructor TRobot.Create(AOwner: TComponent);
begin
Image:=TImage.create(Self);// das ist richtig
Image.Parent:=self; //das solltest du nicht hier machen. >> Fehler: bla... kein übergeordnetes fenster ..bla
(*Besser im SetParent(AWincontrol:Twincontrol);Override;*)
image.rect(0,0,100,100);// das solltest du auch in Setbounds(....);Override; machen
end;

//...

end.

Wozu die Image Komponente?

[3_of_8]

Es heißt natürlich nicht Image.rect, sondern image.canvas.rect(0,0,100,100);

Und das steht auch nicht in Create, sondern in Repaint.

Das mit SetParent versuche ich mal, wenn ich es verstanden habe.

Übrigens: Falls es übersehen wurde: Ich hatte noch eine Frage bezüglich untergeordneten Elementen als Property.

[jfheins]

Zur zweiten Frage: Ich glaube, du kannst einfach eine Property davon machen, und dann immer if FSynEdit <> nil then FSynedit.clear; oder so - probier's mal ;)

[SirThornberry]

also wenn ich den Constructor so ansehen vermisse ich da das inherited!! Das solltest du schleunigst einbauen ansonsten kannst du das ableiten auch gleich ganz lassen wenn du den ursprungsconstructor nicht aufrufst. (bei Destroy etc. gilt gleiches)

[3_of_8]

Das inherited steht ganz am Anfang, ich hab den Code hier aus dem Kopf getippt, also er ist nicht ganz der richtige.

@jfheins: Die Idee hatte ich auch schon, aber alles was ich kriege ist eine AV. Muss ich da noch einen Konstruktor aufrufen?

[barf00s]

Delphi-Quellcode:

constructor TFoobar.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  ...
end;