Komponentenentwicklung OnClick und OnDblClick unterscheiden

[Captnemo]

Hi,

ich entwickle eine Komponente auf den eine Paintbox ist. Diese Paintbox weise ich nun sowohl das OnClick als auch das OnDblClick-Ereignis zu, um diese mit eigenen Parameter weiterzugeben:

Delphi-Quellcode:

type
  TOnDblClickPerson = procedure(Sender: TObject; PersonIndex: Integer) of object;
  TOnClickPerson = procedure(Sender: TObject; PersonIndex: Integer) of object;

type
  TUrlaubsplaner = class(Tcustompanel)
  private
    FOnDblClickPerson: TOnDblClickPerson;
    FOnClickPerson: TOnClickPerson;
    procedure OnPersonClick(Sender: TObject);
    procedure OnPersonDblClick(Sender: TObject);
  published
    //Veröffentlichte Ereignisse im IO
    property OnDblClickPerson: TOnDblClickPerson read FOnDblClickPerson write FOnDblClickPerson;
    property OnClickPerson: TOnClickPerson read FOnClickPerson write FOnClickPerson;
  end;

procedure TUrlaubsplaner.CreateWnd;
begin
  //Hier werden die Procedure dem Paint zugewiesen
  FPersonPaint.OnClick:=OnPersonClick;
  FPersonPaint.OnDblClick:=OnPersonDblClick;
end;

procedure TUrlaubsplaner.OnPersonClick(Sender: TObject);
begin
  if Assigned(OnClickPerson) then
  begin
    OnClickPerson(Self, GetPersonAtRow(GetRowAtPoint(FMousePointPerson.y)));
  end;
end;

procedure TUrlaubsplaner.OnPersonDblClick(Sender: TObject);
begin
  if Assigned(OnDblClickPerson) then
  begin
    OnDblClickPerson(Self, GetPersonAtRow(GetRowAtPoint(FMousePointPerson.y)));
  end;
end;

Mein Problem ist, dass das OnPersondDblClick nie ausgelöst wird. Lediglich das OnPersonClick und dann im OI zugewiesene Procedure.
Ich war mal grundsätlich davon ausgegangen, dass auch die Paintbox schon mal zwischen Click und DblClick unterschiedet. Aber wenn ich die Komponente in ein Projekt einbinde und beide Ereignisse auswerte, wie immer nur das OnClickPerson-Ereignis ausgelöst, aber niemals (auch bei einem Doppelclick) das Ereignis OnDblClickPerson.

[Stevie]

TPaintBox löst auch das Doppelklick Event aus, allerdings vorher noch das normale. Je nachdem, was du dort machst, kann es sein, dass der zweite Klick nicht mehr registriert und als Doppelklick erkannt wird.

[DeddyH]

Das hatten wir doch neulich erst: http://www.delphipraxis.net/181641-t...ick-event.html

[Captnemo]

Zitat:

Zitat von Stevie (Beitrag 1275701)

TPaintBox löst auch das Doppelklick Event aus, allerdings vorher noch das normale. Je nachdem, was du dort machst, kann es sein, dass der zweite Klick nicht mehr registriert und als Doppelklick erkannt wird.

Okay, danke. Ich hatte mir zu Testen in den Ereignissen mit ShowMessage ein Kontrollfunktion anlegen wollen. Das ShowMessage hat dazu geführt, dass es nicht funktionierte.
Wenn ich mir das in einem Memo mitschreibe läuft es so wie gewünscht.
:-D

[Sir Rufo]

So nebenbei gefragt:

Was versprichst du dir von

Delphi-Quellcode:

type
  TOnDblClickPerson = procedure(Sender: TObject; PersonIndex: Integer) of object;
  TOnClickPerson = procedure(Sender: TObject; PersonIndex: Integer) of object;

logisch wäre für mich

Delphi-Quellcode:

type
  TPersonIndexNotify = procedure(Sender: TObject; PersonIndex: Integer) of object;

obwohl es viel interessanter wäre hier gleich die Instanz der Person zu verwenden

Delphi-Quellcode:

type
  TPersonIndexNotify = procedure(Sender: TObject; PersonIndex: Integer) of object;
  TPersonNotify = procedure(Sender: TObject; Person: TPerson) of object;

Und kann man tatsächlich Eigenschaften und Methoden mit gleichem Namen haben? Die Methode zum Feuern würde ich auf jeden Fall in

Delphi-Quellcode:

DoOnPersonClick

umbenennen. Das klingt auch logischer :)
(ahhh, die sind ja doch anders, würde ich trotzdem von der Bezeichnung ändern)

[Captnemo]

Zitat:

Zitat von Sir Rufo (Beitrag 1275706)

So nebenbei gefragt:

Was versprichst du dir von

Delphi-Quellcode:

type
  TOnDblClickPerson = procedure(Sender: TObject; PersonIndex: Integer) of object;
  TOnClickPerson = procedure(Sender: TObject; PersonIndex: Integer) of object;

logisch wäre für mich

Delphi-Quellcode:

type
  TPersonIndexNotify = procedure(Sender: TObject; PersonIndex: Integer) of object;

obwohl es viel interessanter wäre hier gleich die Instanz der Person zu verwenden

Delphi-Quellcode:

type
  TPersonIndexNotify = procedure(Sender: TObject; PersonIndex: Integer) of object;
  TPersonNotify = procedure(Sender: TObject; Person: TPerson) of object;

Und kann man tatsächlich Eigenschaften und Methoden mit gleichem Namen haben? Die Methode zum Feuern würde ich auf jeden Fall in

Delphi-Quellcode:

DoOnPersonClick

umbenennen. Das klingt auch logischer :)
(ahhh, die sind ja doch anders, würde ich trotzdem von der Bezeichnung ändern)

Das sind (PersonIndex vs. TPerson) Überlegungen, die ich im Laufe der Entwicklung auch schon gemacht hatte. Nur hatte ich (leider) noch kein Bock, dass zu ändern :(

Und das mit z.B. DoClick für die Procedure ist mir auch aufgefallen. Trotzdem, pure Faulheit. Ändere ich aber mit Sicherheit noch, allein der Übersichtlichkeit wegen.

Was meinst du mit "Instanz der Person" verwenden? Sorry, ist doch meine erste Komponente :stupid: