VPF::генерация элементов на форме - Форум программистов

fanat107

Дата 9.4.2006, 22:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Awaiting Authorisation
Сообщений: 27
Регистрация: 18.3.2006
Где: г.Владимир

Репутация: нет
Всего: нет

в обшем само саобшение вот код для герации одного CheckBox

Код


var
  Form1: TForm1;
  
  x1: TCheckBox;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  x1:=TCheckBox.Create(form1);
  x1.Parent:=form1;
  x1.Left:=200;
  x1.top:=200;

end;

а как можно что бы не явно писать название переменной x1 а допустим в цикле если мне их много надо(что типа xi)?

Это сообщение отредактировал(а) fanat107 - 9.4.2006, 22:29

Snowy

Дата 9.4.2006, 22:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Код


  with TCheckBox.Create(form1) do
  begin
    Parent:=form1;    
    Left:=200;    
    top:=200;
  end;

fanat107

Дата 9.4.2006, 22:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Awaiting Authorisation
Сообщений: 27
Регистрация: 18.3.2006
Где: г.Владимир

Репутация: нет
Всего: нет

Цитата(Snowy @ 9.4.2006, 22:50)

Код


  with TCheckBox.Create(form1) do
  begin
    Parent:=form1;    
    Left:=200;    
    top:=200;
  end;

а как при этом к ним можно обрашаться?

Snowy

Дата 9.4.2006, 23:10 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

По имени:

Код

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 1 to 20 do
    with TCheckBox.Create(form1) do
    begin
      Parent:=form1;
      Left:=40;
      top:=i * 20;
      Name := 'X' + IntToStr(i);
    end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  c: TCheckBox;
begin
  c := TCheckBox(FindComponent('X' + IntToStr(5)));
  if c <> nil then
  begin
    c.Caption := 'Вот он!';
    c.Checked := not c.Checked;
  end;
end;

Foley

Дата 9.4.2006, 23:13 (ссылка)

(нет голосов)

Загрузка ...

Фсемба Яцца

Профиль
Группа: Участник
Сообщений: 235
Регистрация: 31.1.2006
Где: Россия, Арх.обл

Репутация: 2
Всего: 7

описываешь процедуру

Код


procedure CheckBox1Click(Sender: TObject);//в разделе Туре

далее описываешь саму процедуру

Код


procedure TF_nastr.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked=false then begin
if F_browserr.Panel1.Width>0 then
F_browserr.Panel1.Width:=F_browserr.Panel1.Width+1;
end
else begin
if F_browserr.Panel1.Width<150 then
F_browserr.Panel1.Width:=F_browserr.Panel1.Width+1;
end;
end;

далее при создании компанента присваиваешь ему значение процедуры

Код


with TCheckBox.Create(form1) do    
  begin    
    Parent:=form1;  
    CheckBox.OnClick:=CheckBox1Click;    
    Left:=200;     
    top:=200;    
  end;

должно работать писал тут, поэтому могут быть очепятки

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »