onMouseclick procedur in eigener Komponente

[24jb]

Hi,
ich bin gerde dabei eine Komponente zu schreiben.

Wenn jetzt jemand auf das 'Komponente' /Bild, im fertigen Programm draufklickt, soll etwas passieren, gibt es eine Möglichkeit, eine OnMouseClick procedure direkt in die Komponente zu integrieren?, wenn ja, wie muss die deklariert werden?

Vielen Dank im Vorraus

Olav

[DeddyH]

Überschreib die Methode Click.

[24jb]

Kann man da auch auf die X und Y- Werte der Mausposition zugreifen?
Wenn ja, wie?

Danke im voraus
Olav

[patti]

Und so gehts (ist genau das, was DeddyH geschrieben hat, nur etwas ausführlicher ;-) ):

Delphi-Quellcode:

  // ...
  protected
    { Protected-Deklarationen }
    procedure Click; override;
  // ...

und dann weiter unten:

Delphi-Quellcode:

procedure TKomponente.Click;
begin
   //-----
   // ...
   // evtl. noch "inherited Click;"
end;

Patti

Edit: Roter Kasten...

Du kannst nur bei OnMouseDown bzw. OnMouseUp auf X- und Y-Werte zugreifen! Geht genauso wie ichs beschrieben hab ;-)

Du musst allerdings bei Protected schreiben:

Delphi-Quellcode:

procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;

Und dementsprechend weiter unten deinen Code auch anpassen!

[DeddyH]

Wenn Deine Kompo von TControl abgeleitet ist, kommst Du mit

Delphi-Quellcode:

self.ScreenToClient(Mouse.CursorPos))

an die Client-Koordinaten.

[24jb]

So ich habs jetzt mit MousDown probiert, allerdings sagt er, dass die deklaration von der Urprünglichen abweicht, gibts ne möglichket die ursprüngliche Deklaration anzusehen?

Code:

type
  TBinaryClock = class(TGraphicControl)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
    procedure MouseDown(Sender: TObject; Button: TMouseButton;
              Shift: TShiftState; X, Y: Integer);  Override;
  published
    { Published declarations }
  end;

[patti]

Nimm das "Sender: TObject;" raus, dann sollte es gehen ;-)

[24jb]

Dann bekomm ich den Fehler:

[Error] BinaryClock.pas(17): Unsatisfied forward or external declaration: 'TBinaryClock.MouseDown'

[patti]

Setz deine Deklaration mal unter "Protected". Weiter unten im Quelltext musst du folgendes schrieben:

Delphi-Quellcode:

procedure TBinaryClock.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
     // ----------
     inherited MouseDown(Button,Shift,x,y);
     // ...
end;

Dann sollte es eigentlich funktionieren! Probiers mal aus ;-)

[24jb]

Ich habs probiert, bekamm aber das:

[Error] BinaryClock.pas(15): Unsatisfied forward or external declaration: 'TBinaryClock.MouseDown'
[Error] BinaryClock.pas(31): This form of method call only allowed in methods of derived types