| « Поставить закладку » « Сделать стартовой » | |||
|
|||
|
Динамическое создание компонентов
Сегодня поговорим о том, как создавать компоненты во время работы программы. Иногда заранее не известно количество компонентов. Поэтому в 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;
Рубрика: Разные статьи
HTML 5: пять вещей вызывающих особый интер....
HTML 5 — это грядущее обновление гипертекстового языка разметки, основного способа создания контента для размещения его во всемирной паутине. Разработка HTML остановилась в 1999 году, на версии HTML 4.01 и с тех пор web-содержимое изменилось так, что текущие спецификации HTML перестали соответствовать сегодняшним требованиям. HTML 5 нацелен на то, чтобы увеличить функциональную совместимость HTML и соответствовать растущим требованиям разнообразного и смешанного web-контента. HTML 5 так же нацелен на устранение недостатков четвертой версии. В этой статье мы взглянем на 5 новых интересных вещей в HTML 5.
Подробнее... |
Рубрика: Html
| Добавлено: 22.12.2008
asp.net: ListView с разных сторон.
Элемент управления ListView был представлен в .Net Framework 3.5 как замена устаревшему GridView. Новый элемент имеет более расширенный функционал, чем его предшественник, но в тоже время лишен некоторых внутренних механизмов, что впрочем целиком следствие из расширенной универсальности ListView. Среди отличий ListView и GridView можно назвать и гибкую настройку разметки, что позволяет выводить данные не только в табличном виде, но и вообще в любом каком пожелает программист. Благодаря шаблонам ItemTemplate, EditItemTemplate, InsertItemTeplate можно настроить внешний вид при любом из состояний ListView: редактировании или выборе элемента.
Подробнее... |
Рубрика: .NET компоненты
| Добавлено: 22.12.2008
Создание кросс-таб отчета в Stimulsoft Rep....
Компания Стимулсофт предоставляет для разработчиков мощный набор инструментов для создания отчетов для Microsoft Visual Studio .Net 2005 и 2008; эти инструменты доступны как для Windows Forms, так и для Web Forms. Это генератор отчетов Stimulsoft Reports.Net. Генератор отчетов Stimulsoft Reports.Net имеет ряд особенностей: простая работа с дизайнером отчетов, полная поддержка экспорта в PDF, Word, Excel и многие другие форматы. Crystal Report и Microsoft Reporting Service – очень хорошие программные продукты для повседневной работы, но, если Вам необходимо создать отчеты с поддержкой кросс-табов, drill down, Ajax, штрих-кодов и возможностью подключения одновременно более одного источника данных, то Stimulsoft Reports.Net поможет Вам сэкономить массу времени. Также, данный генератор отчетов позволяет пользователям создавать свои собственные отчеты любой сложности. И все эти особенности делают Stimulsoft Reports.Net хорошим выбором в сфере программных продуктов для Business Intelligence.
Подробнее... |
Рубрика: .NET компоненты
| Добавлено: 22.12.2008
Остальные статьи: |
Цитата дня (все,добавить):
|
Realcoding.NET
© 2003-2008 |
Контакты |
Реклама на сайте
|