[ главная ]   [ рейтинг статей ]   [ справочник радиолюбителя ]   [ новости мира ИТ ]



Ответов: 0
25-02-12 07:01







   Web - программирование
PHP


ASP






XML



CSS

SSI





   Программирование под ОС











   Web - технологии








   Базы Данных









   Графика






Данные




Программирование под ОС / Pascal - Delphi /

Динамическое создание компонентов

Сегодня поговорим о том, как создавать компоненты во время работы программы.

Иногда заранее не известно количество компонентов. Поэтому в Delphi есть возможность создать их из программы. Для этого достаточно вызвать конструктор Create, установить нужные свойства и события. А для появления компонента на экран нужно установить свойство Parent.

При нажатии на левую кнопку мыши эта программа создает Button, а при нажатии на правую - Panel. Причем компоненты создаются там, где находится мышь. Если Вы нажали на Panel1, то компонент появится на Panel1.
...
public
procedure OnButtonClick(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

uses stdctrls, extctrls;

procedure TForm1.OnButtonClick(Sender: TObject);
begin
if Sender is TButton then
with (Sender as TButton) do
Caption := Caption + '1';
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var b: TButton;
p: TPanel;
begin
if Button = mbRight then
begin
p := TPanel.Create(nil);
p.Caption := 'Panel' + IntToStr(random(100));
p.Left := X;
p.Top := Y;
p.Width := random(200) + 100;
p.Height := random(200) + 100;
p.OnMouseDown := Form1.OnMouseDown;
p.Parent := Sender as TWinControl;
end else
begin
b := TButton.Create(nil);
b.Caption := 'Button' + IntToStr(random(100));
b.ShowHint := true;
b.Hint := 'Hint for ' + b.Caption;
b.Left := X;
b.Top := Y;
b.OnClick := OnButtonClick;
b.Parent := Sender as TWinControl;
end;
end;

Но может понадобиться что-то делать с компонентами после их создания. В этом случае нужно создать массив, в котором будут лежать эти компоненты. Эта программа хранит в массиве 100 кнопок. При изменении размера окна кнопки перегруппируются.

var
b: array [0..99] of TButton;

procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
c: integer;
begin
c := Form1.ClientWidth div 52;
for i := low(b) to high(b) do
begin
b[i] := TButton.Create(nil);
b[i].Caption := IntToStr(i + 1);
b[i].Width := 50;
b[i].Height := 20;
b[i].Left := 52 * (i mod c);
b[i].Top := 22 * (i div c);
b[i].Parent := Form1;
end;
end;

procedure TForm1.FormResize(Sender: TObject);
var i: integer;
c: integer;
begin
c := Form1.ClientWidth div 52;
for i := low(b) to high(b) do
begin
b[i].Left := 52 * (i mod c);
b[i].Top := 22 * (i div c);
end;
end;



Комментарии

 Ваш комментарий к данному материалу будет интересен нам и нашим читателям!



Последние статьи: Программирование под ОС / Pascal - Delphi /

Работа со шрифтами на Win API
06-06-2010   

Сегодня поговорим о шрифтах, и о том, каким образом работать с ними на Win API. Нам потребуется переменная типа HFONT. Изменить стиль шрифта можно у любого компонента, я покажу это на примере кнопки... подробнее

Кол. просмотров: общее - 3372 сегодня - 1

Работа с таймером на Win API
06-06-2010   

Таймер - вещь в хозяйстве очень полезная. Если некое действие нужно повторять с определенной периодичностью, то таймер, это как раз то, что нужно... подробнее

Кол. просмотров: общее - 3399 сегодня - 2

Работа с мультимедийным таймером на Win API
06-06-2010   

Мы уже знакомы с системным таймером, сегодня познакомимся с мультимедийным, основное отличие которого, более высокая скорость (точность) работы... подробнее

Кол. просмотров: общее - 3521 сегодня - 0

Создание CheckBoxов средствами Win API
06-06-2010   

Сегодня наша программа научится работать с CheckBoxами. CheckBox можно представить как флаг, который можно установить или сбросить, и в зависимости от его состояния выполнять определенные действия... подробнее

Кол. просмотров: общее - 3636 сегодня - 0

Создание группы RadioButton средствами Win API
06-06-2010   

В прошлый раз мы сделали несколько радио-кнопок, которые автоматически объединялись в одну группу. Сейчас рассмотрим, как создавать несколько независимых групп радио-кнопок... подробнее

Кол. просмотров: общее - 3449 сегодня - 0



  WWW.COMPROG.RU - 2009-2012 | Designed and Powered by Zaipov Renat | Projects