Onclick event bei schnellen klicken

[Sir Rufo]

Klappt doch ganz hervorragend

Delphi-Quellcode:

procedure TForm1.Label1Click( Sender: TObject );
begin
  TuWas( 'Click' );
end;

procedure TForm1.Label1DblClick( Sender: TObject );
begin
  TuWas( 'DblClick' );
end;

procedure TForm1.TuWas( const AStr: string );
begin
  ListBox1.ItemIndex := ListBox1.Items.Add( AStr );
end;

Eventuell möchtest du aber auch einen ganz anderen Event benutzen

Delphi-Quellcode:

procedure TForm1.Label1MouseUp( Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer );
var
  LMouseOverControl: Boolean;
begin
  LMouseOverControl := (Sender as TControl).ClientRect.Contains( TPoint.Create( X, Y ) );
  TuWas( Format( 'MouseUp (%s)', [BoolToStr( LMouseOverControl )] ) );

  // Maus befindet sich beim loslassen noch auf dem Control ...
  if LMouseOverControl and ( Button = mbLeft )
  then // dann
    begin 
      // Jetzt die "Klick"-Aktion auslösen
    end;
end;