Лекция 05 Компоненты Additional (151028)

Пример изменения ширины и высоты

F1book с помощью TrackBar

procedure TForm1.TrackBar1Change(Sender: TObject); begin

f1book1.MaxCol:=trackbar1.Position;

f1book1.Width:=64*trackbar1.Position;

trackbar1.Top:=f1book1.Top+f1book1.Height+15;

trackbar2.top:=trackbar1.Top+45;

end;

procedure TForm1.TrackBar2Change(Sender: TObject); begin

f1book1.MaxRow:=trackbar2.Position;

f1book1.Height:=17*trackbar2.Position;

end;

Пример изменения ширины и высоты

F1book с помощью TrackBar

Панель System

Основные компоненты

Панель System

Компонент TTimer – таймер

Пример использования:

procedure TForm1.Timer1Timer(Sender: TObject); begin

label1.Caption:=timetostr(time);

end;

Панель System

Компонент TPaintBox – область рисования

Пример