Форум: "Начинающим";
Текущий архив: 2007.12.30;
Скачать: [xml.tar.bz2];
Внизавто создания компонентов Найти похожие ветки
← →
Koss (2007-12-05 22:04) [0]подскажите как научить прогу самостоятельно создавать компоненты на форме . или расмножить один компонент .
Возможноли не только размножать компоненты но и задавать им разные имена и разные обрабаботчики событий ?
← →
Германн © (2007-12-05 22:09) [1]http://www.delphikingdom.com/asp/viewitem.asp?catalogid=342
← →
Gydvin © (2007-12-05 22:20) [2]Подсказываю
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
edits:array [0..5] of tedit;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
x:integer;
begin
for x:=0 to 5 do
begin
edits[x]:=tedit.Create(self);
edits[x].Parent:=form1;
edits[x].Left:=x*edits[x].Width;
edits[x].OnChange:=Edit1Change;
edits[x].Visible:=true;
end;
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
showmessage(tedit(sender).text);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
edits[2].Text:="bla-bla";
end;
end.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.12.30;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c