.


:




:

































 

 

 

 


-




1 , , :TEdit, TMemo, TLabel

1.

, Caption (True - )    
   
   
/ .    
   
   
True,    
.    
   
   
   
. . Add, Delete, Insert ,    
   
,    
: sbHorizontal - ; sbVertical -    
( )    
   
   
   

2. ?

Label3.Caption:=IntToStr(n);

x:=StrToFloat(Edit1.Text);

Memo1.Lines.Add(' max='+FloatToStrF(ma,ffGeneral,8,2));

 

2 : InputBox, MessageBox, MessageDialog

1

, ShowMessage

252

2 S, InputBox

3

, MessageDlg: , Yes, No, Cancel. , Yes?

4

, MessageBox, Retry, Cancel. , Retry?

 

3 : , , . TListBox, TStringGrid, TCombobox

1.

     
.      
,      
/      
     
     
     
     
     
     
     
.      
Tab (Shifts-Tab)      
(ACol.ARow)      
Index      

2. ?

1. StringGrid1.Cells[0,i]:=' i= '+IntToStr(i);

2.StringGrid1.ColCount:=N+1;

3. StringGrid1.RowCount:=N+1;

4. N:= ListBox1. ItemIndex

5. ListBox1. Items.Add(ListBox1. Item[i]);

 

4 : , , . TButton, TBitBtn, TSpeedButton, TRadioButton

1.

True, OnClick Esc    
True, OnClick Enter    
False,    
,    
TButton,    
mrXXX: bkOk -mrOk,    
   
   
,    
, , .    

2. ?

If RadioButton1. Checked Then Memo1.Lines.Add( );

3. BitBtn?

4 SpeedButton?

 

 

5 : , , . TRadioButton, TheckBox, TRadioGroup

1.

   
   
   
()    
/.    
   
.    
-    
   
. () ()    
.    
   
   
   
, .    

2. ?

if CheckBox1.Checked then

 

case RadioGroup1.ItemIndex of

0: u:=cos(x);

1: u:=sin(x);

2: u:=sin(x)/cos(x);

end;

 

6 : , , . TShape, TImage,TPaintBox

1.

Canvas.    
   
Delphi : , .    
, ,    
, , , () .    
   
   
,    
   
   
Ellipse    
   
Polygon    
   
   
, Tbitmap.    
,    
   
   

2. , PaintBox

 

3. , PaintBox

 

4. , PaintBox

 

 

5. , PaintBox

 

6.

 

 

7. , Shape

 

7 : , , . TMainMenu, TPopUpMenu

1.

TMainMenu, TPopUpMenu?  
?  
? ?  
?  
?  
?  
?  

8 : , , .TOpenDialog, TSaveDialog, TColorDialog, TOpenPictureDialog, TSavePictureDialogTPrinterSetupDialog, TPrinterDialog

1.

   
   
   
Device    
   
,    
   
() , .    
.    
.    
   
   
   
.    
.      

2. ?

SaveDialog1.Execute

FileName:= OpenDialog1.FileName

3. . OpenDialog

 

 

3





:


: 2016-12-06; !; : 666 |


:

:

, .
==> ...

809 - | 733 -


© 2015-2024 lektsii.org - -

: 0.023 .