Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sirius,
14. Jun 2007
so:
type
TTreemapChart = class (TGraphicControl);
public
procedure MouseMove(Shift: TShiftState; X,Y: Integer); override;
implementation
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sirius,
14. Jun 2007
Schau mal, was ich gemacht habe!
Du bist jetzt nicht beim event, sondern bei der methode, die das event auslöst.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sirius,
14. Jun 2007
Ja, dann solltest du mal deine Deklaration überprüfen :zwinker: Die muss schon übereinstimmen.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sirius,
14. Jun 2007
Es gibt die procedure MouseMove (die das Event OnMouseMove auslöst) die du überschreiben könntest.
type Tx=class(TGraphicControl)
procedure mousemove(Shift: TShiftState; X, Y: Integer);override;
end;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private