Komponentenentwicklung mit Delphi7

[Khabarakh]

Du musst darfst Width und Height nicht selbst definieren, die gibt es schon seit TControl. Wofür du die Form-Property benutzen willst, ist mir auch schleierhaft, Zugriff auf das übergeordnete Control bekommst du durch die Eigenschaft Parent.
Du musst die Methode Diagramm natürlich auch irgendwo aufrufen, sonst wird nichts gezeichnet.
Solange du kein OffScreenBitmap benutzt, solltest du Paint überschreiben und dort die Methode aufrufen.

[Christian18]

Zitat von Khabarakh:

Du musst darfst Width und Height nicht selbst definieren, die gibt es schon seit TControl. Wofür du die Form-Property benutzen willst, ist mir auch schleierhaft, Zugriff auf das übergeordnete Control bekommst du durch die Eigenschaft Parent.
Du musst die Methode Diagramm natürlich auch irgendwo aufrufen, sonst wird nichts gezeichnet.
Solange du kein OffScreenBitmap benutzt, solltest du Paint überschreiben und dort die Methode aufrufen.

wenn ich die methode diagramm zur laufzeit aufrufe, dann funktioniert es. aber ich will das es auch funktioniert, wenn ich die form designe.

[Khabarakh]

Die Methode Paint wird jedes Mal ausgeführt, wenn Windows eine WM_PAINT-Message schickt, also überschreibe sie und führe darin den Code zum Zeichnen aus, wie ich schon oben gesagt habe.

[Christian18]

Zitat von Khabarakh:

Die Methode Paint wird jedes Mal ausgeführt, wenn Windows eine WM_PAINT-Message schickt, also überschreibe sie und führe darin den Code zum Zeichnen aus, wie ich schon oben gesagt habe.

ich versteh jetzt wo oder was du meinst. hast du ein kleines bsp???

[hanselmansel]

Delphi-Quellcode:

type
  TDiagramm = class(TGraphicControl)
  private
    FForm : TForm;
    FRand : Boolean;
    FHeight : Integer;
    FWidth : Integer;
    procedure Diagramm();
  public
    procedure Paint; override;
  published
    property Form : TForm Read FForm Write FForm;
    property Rand : Boolean Read FRand Write FRand;
    property Height : Integer Read FHeight Write FHeight;
    property Width : Integer Read FWidth Write FWidth;
    { Published-Deklarationen }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Standard', [TDiagramm]);
end;

procedure TDiagramm.Diagramm();
begin
  // Rahmen zeichnen
  if FRand=True then
    begin
      Canvas.Rectangle(0, 0, Width, Height);
    end;

  // Achsen zeichnen
  Canvas.MoveTo(30, 30);
  Canvas.LineTo(30, Height - 30);
  Canvas.LineTo(Width - 30, Height - 30);
end;

Procedure TDiagramm.Paint; //hier musst du evtl. noch einmal die override-Direktive hinschreiben, ich bin mir nicht mehr sicher...
Begin
inherited;
Diagramm;
End; 

end.