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

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

Browse Source
This commit is contained in:
dopi
2012-04-21 21:13:38 +00:00
parent b28934bb74
commit f14005671f
8 changed files with 290 additions and 145 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -13,12 +13,14 @@ type
{ TForm2 }
TForm2 = class(TForm)
Button1 : TButton ;
bClose : TButton ;
CheckBox1 : TCheckBox ;
CheckBox2 : TCheckBox ;
Edit1 : TEdit ;
Edit2 : TEdit ;
procedure Button1Click(Sender : TObject) ;
Label1 : TLabel ;
Label2 : TLabel ;
procedure bCloseClick(Sender : TObject) ;
procedure FormClose(Sender : TObject ; var CloseAction : TCloseAction) ;
procedure FormCloseQuery(Sender : TObject ; var CanClose : boolean) ;
procedure FormDestroy(Sender : TObject) ;
@ -44,7 +46,7 @@ begin
fMainForm.mEvents.Lines.Add( 'Form2.Close' );
end;
procedure TForm2.Button1Click(Sender : TObject) ;
procedure TForm2.bCloseClick(Sender : TObject) ;
begin
Close;
ClientRect;