IPB

Здравствуйте, гость ( Вход | Регистрация )

> Создание объектов, Delphi 7
Fly_by_Night (БР...
сообщение Jun 17 2008, 12:56
Сообщение #1


Пользователь
**

Группа: Posters
Сообщений: 88
Регистрация: 19.10.2007
Из: KUGESI
Пользователь №: 10,570



Как создать объект на форме программно?

Например кнопку, или массив кнопок (Button(1),Button(2),Button(3)...Button(n))
Например изображение, или массив изображений (Image(1),Image(2),Image(3)...Image(n))

Чтобы потом можно было к ним обращаться по индексу
Image(i).Свойство...




--------------------
#КартинкА#
Вернуться к началу страницы
 
+Цитировать сообщение
 
Создать новую тему
Ответов (1 - 1)
Fly_by_Night (БР...
сообщение Jun 20 2008, 21:38
Сообщение #2


Пользователь
**

Группа: Posters
Сообщений: 88
Регистрация: 19.10.2007
Из: KUGESI
Пользователь №: 10,570



САМ спросил-сам ответил, ну да ладно кому-нить пригодится

Код
   {...}
   procedure RunTimeButtonClick(Sender: TObject);
end;


   {...}
var
   Form1: TForm;
   {Declare an Array of TButtons}
   RunTimeButtons: array[1..10] of TButton;

{...}

implementation

{...}

procedure TForm1.RunTimeButtonClick(Sender: TObject);
begin
   {Show the Button Nummer that was clicked}
   ShowMessage('Button' + IntToStr((Sender as TButton).Tag) + ' clicked!');
end;

procedure TForm1.Button13Click(Sender: TObject);
var
   i: Byte;
begin
   for i := 1 to 10 do
   begin
     {Create the buttons}
     RunTimeButtons[i] := TButton.Create(Self);
     with RunTimeButtons[i] do
     begin
       Parent  := Form1;
       Caption := 'Button ' + IntToStr(i);
       Top     := i * Height;
       Tag     := i;
       {Assign a OnClick handler}
       OnClick := RunTimeButtonClick;
       Visible := True;
     end;
   end;
end;


--------------------
#КартинкА#
Вернуться к началу страницы
 
+Цитировать сообщение

ОтветитьСоздать новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



RSS Текстовая версия Сейчас: 29th March 2024 - 15:09