TAdvStringGrid, OnDblClick reicht OnMouseUp an modales Fenster weiter

[hoika]

Hallo,

ein merkwürdiges Problem.
Per Mouse-Doppelklick auf ein TAdvStringGrid wird ein anderes Fenster modal geöffnet.

Auf einem OnRadioButtonUp wird dort reagiert.
Und jetzt kommst:
Das MouseUp-Event des TAdvStringGrid wird durchgeschleift zum OnRadioButton-MouseUp !!!

Eine Sache dabei ist noch, dass ich beim Öffnen des modalen Fensters das Grid disable,
damit keiner aus Versehen noch im Grid machen kann (z.B. die Zeile zu ändern).

Mein Ansatz war jetzt, mit:

Delphi-Quellcode:

  while PeekMessage(lpMsg, 0, WM_MOUSEFIRST, WM_MOUSELAST, PM_REMOVE) do
  begin
    GetMessage(lpMsg,0,0,0);
  end;

Die Mouse-Events verschwinden zu lassen,
klappt aber leider nicht ;(

Irgendwelche Ideen?


Danke


Heiko

[hoika]

Hallo,
ich habe mir jetzt geholfen,
indem ich eine Form-Variable (bFirstInForm) im FormCreate auf True
und am Ende des FormActivate auf False setze.

Sämtliche OnClick-Methden laufen erst, wenn bFirstInForm False ist.

Quick&Clean ...


Heiko

[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.