Компоненттер
|
Объектілер инспекторы терезесіне енгізілетін өзгертулер
|
ScrollBar1: TScrollBar
|
Heigth: 17
Width: 481
Left: 16
Top: 288
Kind: cbHorizontal
|
ScrollBar2 TScrollBar
|
Heigth: 289
Width: 17
Left: 496
Top: 16
Kind: cbVertical
|
ScrollBar1 компонентін екі рет басып, ашылған ScrollBar1Change оқиға өңдеуші процедурасына төмендегі мәліметтерді енгіземіз:
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
Shape1.Width:=ScrollBar1.Position*3;
end;
Сонымен қатар, ScrollBar2 компонентін екі рет басып, ашылған ScrollBar2Change оқиға өңдеуші процедурасына төмендегі мәліметтерді енгіземіз:
procedure TForm1.ScrollBar2Change(Sender: TObject);
begin
Shape1.Height:=ScrollBar1.Position*2;
end;
Бірнеше басқару элементтерін топтау үшін Panel компонентін орналастырамыз және төмендегі кестеде берілгендей олардың қасиеттеріне өзгертулер енгіземіз:
Компонент
|
Объектілер инспекторы терезесіне енгізілетін өзгертулер
|
Panel1:TPanel
|
Caption:
Heigth: 89
Width: 521
Left: 8
Top: 328
Kind: cbHorizontal
|
Фигуралардың түрін таңдау үшін ComboBox1 компонентін орналастырамыз және төмендегі кестеде берілгендей қасиеттеріне өзгертулер енгіземіз:
Достарыңызбен бөлісу: |
