MouseDown, ..Up, ..Move einer Klasse hinzufügen?

[moelski]

Moin !

Irgendwas fehlt da noch, denn gezeichnet wird noch nix.
Meine Klasse:

Delphi-Quellcode:

{$M+}
unit Recty;

interface

uses Classes, Graphics, Controls;

type
 TRecty = Class(TGraphicControl)
   private
     FX, FY,                     // X, Y Position (Left Top)
     FW, FH         : Integer;   // Width, Height
     FScale         : Double;    // Scaling ...
   protected
     procedure Paint; override;
   published
//     constructor Create();

     property X      : Integer  read FX       write FX;
     property Y      : Integer  read FY       write FY;
     property W      : Integer  read FW       write FW;
     property H      : Integer  read FH       write FH;
     property Scale  : Double   read FScale   write FScale;

//     Property OnMouseMove;
 end;

implementation

procedure TRecty.Paint;
begin
  inherited;
  Scale := 1;
  Canvas.Rectangle(Trunc(X   ),
                   Trunc(Y   ),
                   Trunc((X+W) * Scale),
                   Trunc((Y+H) * Scale));
end;

end.

Und so erzeuge ich eine Instanz (Items : array of TRecty):

Delphi-Quellcode:

  Items[ID] := TRecty.Create(Form1);
  Items[ID].Scale  := 1;
  Items[ID].X := 10;
  Items[ID].Y := 10;
  Items[ID].W := 30;
  Items[ID].H := 30;
//  Items[ID].OnMouseMove := nil;
  Items[ID].Repaint;
  Canvas.Refresh;

Bei dem Paint komme ich allerdings nie an.

[SirThornberry]

Du hast keinen Parent angegeben und auch die Größe und Position (Left, Top, Width, Height) nicht gesetzt.
Zu dem kannst du x,y,w,h weg lassen da visuelle Komponenten bereits die Properties für Größe und Position besitzen:

Delphi-Quellcode:

yourComponent := TYourComponent.Create(Nil_Or_wanted_Owner);
yourComponent.Parent := your_wanted_parent;
yourComponent.setbounds(0, 0, 250, 250);

Und im überschriebenen Paint brauchst du natürlich dann nicht x,y,w und h zu verwenden sondern einfach nur breite und höhe.