Delphi (Unit).
MainUnit.pas. TForm1, TForm:
TForm1 = class(TForm)
End;
Form1, TForm1
Var
Form1: TForm1;
(, Form1.Color:= clRed; Form1 ).
4.
1. Button Standard ( ).
2. , TButton (TButton Type Button, ):
Button1: TButton;
3. Button1. :
procedure TForm1.Button1Click(Sender: TObject);
Begin
End;
ᒺ Button1 () 䳿 Click ( ) Button1Click. TForm1.
, :
procedure Button1Click(Sender: TObject);
begin end; , , :
Form1.Color:= clRed; { }
. Button1Click Form1, Color Form1 Color:= clRed;
4. .
5.
1. , (clGreen). .
2. Events (䳿) Object Inspector. 䳿 OnClick ( ) Button1Click. , , Button2Click.
䳿. , , Button1Click, , . Sender , (send . ).
:
{ }
If Sender = Button1 Then Color:= clRed
else Color:= clGreen; { }
|
|
, ᒺ, 䳿 OnClick Button1Click.
Button2Click , begin end; .
3. ( Close All File) . ( Reopen File).
1. Delphi? ? ? , , Delphi?
2. Delphi? . , ᒺ / ?
3. ? ? ?
4. ? ?
5. ? .
6. 䳿 (, )? 䳿? Sender ? 䳿?
2
: Delphi.
: Delphi.
1.
1. Delphi. ³ , ( Open Project Reopen File). (, Windows Commander) dpr.
2.
1. . , Ctrl+, Shift+. , . Align to Grid
. .
2. Align (). . (Left Sides Tops).
3. Size (). , .
4. Scale (). , . 200%. , . .
5. ϳ Edit Lock Controls. ( ).
|
|