1.
Owner, ComponentCount, Components.
ճ
1. Tbutton Tmemo:
2. Tbutton , ʳ , , Memo1. Caption .
3. 䳿 onClisk :
Memo1.Text:=Button1.Owner.Name;
4. 䳿 onClisk :
Var
N:integer;
Begin
N:=Form1.ComponentCount; // 䳺 .
Memo1.Text:=IntToStr(N); // Integer String IntToStr().
// Memo1.
end;
5. 䳺 :
Var
I,N:integer;
Begin
N:=Form1.ComponentCount; // 䳺 .
Memo1.Lines.Clear; // Memo1.
for I:=0 to N-1 do Memo1.Lines.Add(Form1.Components[i].Name);
//Memo1.Lines.ADD() .
// Form1.Components[i].Name .
end;
6. Free:
Form1.FindComponent('Memo1').free;
:
Memo1.Free;
7. Practugna3Z1.
: Components .
2.
, .
ճ
Color TForm ᒺ : clBlack, clMaroon, clGreen, clOlive , 0..4294967295 $00000000..$FFFFFFFF . .
1. .
2. TButton TColorDialog ( Dialogs ). Caption . TLabel Standart. Caption:
3. 䳿 onClisk :
|
|
If ColorDialog1.Execute Then
Begin
Form1.Color:=ColorDialog1.Color; // .
Form1.Caption:=IntToStr(ColorDialog1.Color); //
// .
Label1.Caption:=IntToHex(ColorDialog1.Color,8);//
// Label1.
end;
ColorDialog1.Execute , True .
If ColorDialog1.Execute Then , , Begin . end;
IntToNext . IntToHex(Value: Integer; Digits: Integer): string;
, .
4. Practugna3Z2.
ϳ :
$00008000 | ||
1. ?
_____________________________________
2. , 䳺 ?
_____________________________________
3. , ?
_____________________________________
4. ?
_____________________________________
5. ?
_____________________________________
:
$00000D | ||||
$2A000D | ||||
$DDDDDD | ||||
$123456 | ||||
$000064 | ||||
$0003E8 | ||||
$000521 | ||||
$0013BA | ||||
$00FFFF | ||||
$0000FF | ||||
$FFFFFF |
TButton TEdit. TEdit .
procedure TForm1.Button1Click(Sender: TObject);
Begin
end;