Delphi In eigener Komponente auf Klick reagieren

Thema durchsuchen

Ansicht

Themen-Optionen

In eigener Komponente auf Klick reagieren

Ein Thema von 3_of_8 · begonnen am 13. Okt 2006 · letzter Beitrag vom 13. Okt 2006

Vorheriger Beitrag

Nächster Beitrag

Christian Seehase

(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.124 Beiträge

Delphi 11 Alexandria

Re: In eigener Komponente auf Klick reagieren

13. Okt 2006, 18:05

Moin Manuel,

und so:

zusammenfalten · markieren

Delphi-Quellcode:

			type

  TMyCC = class(TCustomControl)

  private

    FOnMouseUp : TMouseEvent;

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

  public

    property OnMouseUp read FOnMouseUp write FOnMouseUp;

  end;

procedure TMyCC.MouseUp(Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

  inherited;

  ShowMessage('INTERNAL');

  if Assigned(FOnMouseUp) then FOnMouseUp(self,Button,Shift,x,y);

end;

Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist