TAdvStringGrid, OnDblClick reicht OnMouseUp an modales Fenster weiter

[ibp]

Habe das mal nachgestellt und kann das nicht bestätigen, da muss was bei dir anders sein..

Delphi-Quellcode:

unit Unit1;

interface

uses
  Unit2,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, AdvObj, BaseGrid, AdvGrid;

type
  TForm1 = class(TForm)
    AdvStringGrid1: TAdvStringGrid;
    procedure AdvStringGrid1DblClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.AdvStringGrid1DblClick(Sender: TObject);
var
  Form2: TForm2;
begin
  AdvStringGrid1.Enabled:=False;
  Form2:= TForm2.Create(nil);
  Form2.ShowModal;
  Form2.free;
  AdvStringGrid1.Enabled:=True;
end;

end.

--------------------------
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    RadioButton1: TRadioButton;
    procedure RadioButton1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.RadioButton1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ShowMessage('Haha');
end;

end.