Brauche OnMouseMove-Event + habe Problem mit ObjectInspector

[daschaos]

Hi!

Ich habe eine Komponente erstellt, die von TGraphicControl erbt. Jetzt bräuchte ich aber auch das OnMouseMove - Event, dass es aber nur von der Vaterklasse von TGraphicControl TControl gibt. Erben die Unterklassen nich alles von der Oberklasse? Naja, auf jeden Fall meine Frage, wie komme ich daran oder was muss ich machen, damit ich dieses Event in meiner Komponente benutzen kann.

Außerdem dachte ich, würde man automatisch meine als published deklarierten Poperties im Obejct Inspector angezeigt bekommen. Allerdings zeigt er dort wirklich garnichts an. Muss ich da noch was beachten, angeben, wie auch immer? Die Anwendung bzw. das Formular, das meine Komponente benutzt ist das einzige was angezeigt wird ...

Bin für jede Hilfe dankbar !

[SirThornberry]

ganz einfach:

Delphi-Quellcode:

[...]
published
  property OnMouseMove;
[...]

Damit änderst du die sichtbarkeit von protected zu published

[daschaos]

Tut mir leid für mein Unwissenheit, aber das versteh ich nich . Was hab ich jetzt davon, dass ich ein property hab, dass OnMouseMove heißt?

[SirThornberry]

ich dachte du willst das property so haben das man es über den Objectinspektor zuweisen und benutzen kann

[daschaos]

Ach, ich bin zu blöd mich in Worte zu fassen. Er kennt einfach das OnMouseMove nich. Also zum Beispiel die Methode Paint gibts bei TGraphicControl auch. Da muss ich dann zum Beispiel nur das schreiben:

Delphi-Quellcode:

public
    procedure Paint; override;
...

procedure TTreemapChart.Paint;
begin
  inherited;
  ...
end;

Und so hätte ich das auch gerne...

[sirius]

Es gibt die procedure MouseMove (die das Event OnMouseMove auslöst) die du überschreiben könntest.

Delphi-Quellcode:

type Tx=class(TGraphicControl)
       procedure mousemove(Shift: TShiftState; X, Y: Integer);override;
end;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    x:Tx;
end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  x:=tx.Create(self);
  x.parent:=self;
  x.Align:=alclient;
  canvas.MoveTo(0,0);
end;
procedure Tx.mousemove;
begin
  canvas.LineTo(x,y);
end;

[daschaos]

Ja, genau so hab ich das auch gemacht, aber es läuft nich. Erstmal sagt er mir folgendes als Warnung:

[Warning] TreemapChart.pas(59): Method 'MouseMove' hides virtual method of base type 'TControl' Er kompiliert aber, nur er reagiert nich auf die "Mouse Moves", es passiert einfach nichts. Wenn ich jetzt das override dazu schreibe, kompiliert er nich mehr und gibt mir folgende Fehlermeldung aus:

[Error] TreemapChart.pas(59): Declaration of 'MouseMove' differs from previous declaration Damit kann ich dann garnichts mehr anfangen .

[sirius]

Ja, dann solltest du mal deine Deklaration überprüfen Die muss schon übereinstimmen.

[daschaos]

Aber das ist doch so okay, oder?

Delphi-Quellcode:

type
  TTreemapChart = class (TGraphicControl);

public
  procedure MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer); override;

implementation

procedure TTreemapChart.MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
  ...
end;

[sirius]

Schau mal, was ich gemacht habe!

Du bist jetzt nicht beim event, sondern bei der methode, die das event auslöst.