Frage zur Komponentenerstellung

[JonnyGuitar]

moin moin,

ich bin gerade bei dem versuch meine erste komponente zu schreiben. es soll eine fussballtabelle werden :).
also dachte ich mir ich leite diese von tgraphiccontrol ab:

Delphi-Quellcode:

type
  TTabelle = class(TGraphicControl)
  private
  public
  protected
    procedure Paint; override;
  end;
.
.
.
.
.
procedure TTabelle.Paint;
begin
  inherited;
  with Canvas do
  begin
    Pen.Color := clRed;  // nur mal so als bespiel
    LineTo(1,100);
  end;
end;

wenn nun aber eine TTabelle erzeuge kommt das programm nie in die paint methode. muss diese explizit immer selber aufgerufen werden
oder sollte das automatisch gehen? oder mache ich generell etwas falsch?


besten dank im vorraus

mfg Jonny

[phlux]

Ich habs nicht mehr genau im Kopf, ist schon lange her, dass ich selbst Kompos geschrieben habe. Du musst imho das inherited in der Paint Methode weglassen, da du sie ja selbst überschreiben willst. Inherited bedeutet, dass du die Paint Methode aus der Parent-Klasse aufrufst und soweit ich weiß wird deine Methode sofort abgebrochen sobald du inherited aufrufst.

[DeddyH]

Zitat:

Zitat von JonnyGuitar

wenn nun aber eine TTabelle erzeuge...

Wie erzeugst Du sie denn? Ist die Kompo bereits installiert und aus der Komponentenpalette auf die Form gezogen worden, oder erstellst Du sie zur Laufzeit?

P.S.: Das hat mit inherited nix zu tun

[JonnyGuitar]

ich sie erstmal noch zur laufzeit

Delphi-Quellcode:

tab := ttabelle.create(self);

[DeddyH]

Setzt Du denn auch den Parent? Zeig doch mal den Code zur Erstellung.

[mkinzler]

Zitat:

Inherited bedeutet, dass du die Paint Methode aus der Parent-Klasse aufrufst

ja so ist es

Zitat:

und soweit ich weiß wird deine Methode sofort abgebrochen sobald du inherited aufrufst.

Nein, deine Methode wird nach dem aufruf der ererbten Methode fortgeführt.

[JonnyGuitar]

mehr code gibt es eigentlich noch gar nicht :oops:
heisst das ich muss im constructor den parent zuweisen?
ich dachte das mache ich schon in dem normalen create?!?

[DeddyH]

Delphi-Quellcode:

tab := ttabelle.create(self);
tab.Parent := self;

Versuch es mal so.

[JonnyGuitar]

ne sorry DeddyH,

bringt auch nichts. er führt das create aus, hält es aber nicht für nötig in das paint reinzugehen :(

[DeddyH]

Ich habe das hier gerade mal schnell unter Delphi 5 getestet:

Delphi-Quellcode:

unit UnitNix;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TTabelle = class(TGraphicControl)
  private
  public
  protected
    procedure Paint; override;
  end;

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private-Deklarationen }
    tab: TTabelle;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TTabelle.Paint;
begin
  inherited;
  with Canvas do
  begin
    Pen.Color := clRed;  // nur mal so als bespiel
    MoveTo(0,0);
    LineTo(100,100);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  tab := TTabelle.Create(self);
  tab.Parent := self;
  tab.Left := 0;
  tab.Top := 0;
  tab.Width := 200;
  tab.Height := 200;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FreeAndNil(tab);
end;

end.

[Muetze1]

<vermutung>Fehlte wohl nur das MoveTo() vor dem LineTo()</vermutung>

[DeddyH]

Ohne MoveTo ging es bei mir auch, hab es aber vorsichtshalber reingenommen.

[JonnyGuitar]

vielen, vielen dank.

wenn man

Delphi-Quellcode:

tab.Left := 0;
tab.Top := 0;
tab.Width := 200;
tab.Height := 200;

nicht setzt kann es auch schlecht funktionieren :wall:

aber das sind auf jeden fall diese dummen anfängerfehler wenn man sich noch nie mit sowas beschäftigt hat ;)

ich lasse was von mir hören wenn ich fortschritte erziehlt habe :)


nochmals vielen dank


mfg Jonny