pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2400 8e941d3f-bd1b-0410-a28a-d453659cc2b4

Browse Source
This commit is contained in:
dopi
2012-04-21 22:57:35 +00:00
parent f14005671f
commit 26f6b7f3af
8 changed files with 320 additions and 202 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/tdi/Demo/uform2.pas
View File

@ -25,6 +25,7 @@ type
procedure FormCloseQuery(Sender : TObject ; var CanClose : boolean) ;
procedure FormDestroy(Sender : TObject) ;
procedure FormHide(Sender : TObject) ;
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure FormShow(Sender : TObject) ;
private
{ private declarations }
@ -67,6 +68,12 @@ begin
fMainForm.mEvents.Lines.Add( 'Form2.Hide' );
end;
procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
);
begin
fMainForm.mEvents.Lines.Add( 'Form2.FormKeyDown');
end;
procedure TForm2.FormShow(Sender : TObject) ;
begin
fMainForm.mEvents.Lines.Add( 'Form2.Show' );