diff options
| -rw-r--r-- | extras/tiopf/demos/Demo_21_AdrsBook_MGM/frmmain.pas | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/extras/tiopf/demos/Demo_21_AdrsBook_MGM/frmmain.pas b/extras/tiopf/demos/Demo_21_AdrsBook_MGM/frmmain.pas index 2e13aa09..7dae329e 100644 --- a/extras/tiopf/demos/Demo_21_AdrsBook_MGM/frmmain.pas +++ b/extras/tiopf/demos/Demo_21_AdrsBook_MGM/frmmain.pas @@ -26,6 +26,7 @@ type {@VFD_HEAD_END: MainForm} FMediator: TFormMediator; procedure FormShow(Sender: TObject); + procedure GridDoubleClicked(Sender: TObject; AButton: TMouseButton; AShift: TShiftState; const AMousePos: TPoint); procedure SetupMediators; procedure miEditAddClick(Sender: TObject); procedure miEditEditClick(Sender: TObject); @@ -55,6 +56,12 @@ begin // do nothing yet end; +procedure TMainForm.GridDoubleClicked(Sender: TObject; AButton: TMouseButton; + AShift: TShiftState; const AMousePos: TPoint); +begin + miEditEditClick(nil); +end; + procedure TMainForm.SetupMediators; begin if not Assigned(FMediator) then @@ -133,6 +140,7 @@ begin Anchors := [anLeft,anRight,anTop,anBottom]; FontDesc := '#Grid'; HeaderFontDesc := '#GridHeader'; + OnDoubleClick := @GridDoubleClicked; end; btnAdd := TfpgButton.Create(self); |