Отправляет email-рассылки с помощью сервиса Sendsay

Советы по Delphi

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Май 2001   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
Сергей

Статистика

13.545 подписчиков
-22 за неделю
←   Все выпуски   →

Советы по Delphi


Служба Рассылок Subscribe.Ru проекта Citycat.Ru

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

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

Иногда заранее не известно количество компонентов. Поэтому в 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;

Всего доброго,
Даниил Карапетян.

На сайте http://delphi4all.narod.ru Вы найдете еще более 100 советов по Delphi.
Email: delphi4all@narod.ru




Текстовая обменная сеть

TLE (http://www.tle.ru) - это уникальная сеть обмена ссылками, позволяющая увеличить посещаемость Вашего сайта. Показывая у себя на сайте 100 баннеров, вы зарабатываете всего 80 показов Ваших баннеров. Показывая 100 рекламных блоков TLE.RU, Вы зарабатываете 255 показов Ваших ссылок! Почувствуйте разницу! Высокий CTR%, удобная панель управления, мгновенная регистрация.
Спешите! Только до 15 мая каждому новому участнику 50,000 БЕСПЛАТНЫХ показов! Узнать подробности и стать участником сети можно на сайте http://www.tle.ru



http://subscribe.ru/
E-mail: ask@subscribe.ru
В избранное