Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];

Вниз

Динамическое создание объектов на форме.   Найти похожие ветки 

 
PC   (2004-10-11 22:26) [0]

Собсна сабж: мне надо на этапе инициализации проги создать на форме некотрое число рисунков и флажков. И обрабытывать клики на них. Собсна как? Заранее спасибо.


 
Rouse_ ©   (2004-10-11 22:39) [1]

У созданного объекта есть события - назначай на них обработчики плана...
Button.OnClick := MyClick()


 
saNat ©   (2004-10-11 22:47) [2]

Например, создаем TImage:

//Сначала подключаем библиотеку...
Uses
...,ExtCtrls;
...
//Описание класса формы
TForm1=Сlass(TForm)
 Procedure FormActivate(Sender:TObject);
 Procedure FormClose(Sender:TObject; Var Action:TCloseAction);
Private
 //Создаваемый объект
 Risunok:TImage;
 //Обработчик щелчка мышью
 Procedure RisunokClick(Sender:TObject);
Ppublic
 {Public declarations}
End;
...

//Создание объекта при активации формы
Procedure TForm1.FormActivate(Sender:TObject);
Begin
Risunok:=TImage.Create(Self);
Risunok.Parent:=Form1;
Risunok.OnClick:=RisunokClick;
Risunok.Top:=9;
Risunok.Left:=9;
Risunok.Width:=300;
Risunok.Height:=200;
Risunok.Stretch:=True;
Risunok.Picture.LoadFromFile("D:\Graphika\Photo\Ералаш. Разные\EVA.bmp");
Risunok.Show;
End;

//Обработчик щелчка
Procedure TForm1.RisunokClick(Sender:TObject);
Begin
ShowMessage("Click!");
End;

//Уничтожаем созданный объект при закрытии формы
Procedure TForm1.FormClose(Sender:TObject; Var Action:TCloseAction);
Begin
Risunok.Free;
End;


Аналогично для "флажков"

С уважением...

P.S.: Поправьте пожалуйста, если я где не прав.


 
Rouse_ ©   (2004-10-11 23:02) [3]

> P.S.: Поправьте пожалуйста, если я где не прав.
Все тютелька в тютельку ;)


 
KSergey ©   (2004-10-12 07:56) [4]

Автору: читаем тут http://www.delphikingdom.com/helloworld/runtime_comp.htm


 
PC   (2004-10-12 20:41) [5]

Да не, у меня заранее не известно их количество! Их много ! :)


 
Vit@ly ©   (2004-10-12 20:47) [6]


> мне надо на этапе инициализации проги создать на форме некотрое
> число


Так создавай на этапе когда тебе это известно, или по мере необходимости


 
Vit@ly ©   (2004-10-12 20:51) [7]


> мне надо на этапе инициализации проги создать на форме некотрое
> число
рисунков и флажков

Так и создавай на этапе, когда определишься с некоторым числом


 
Vit@ly ©   (2004-10-12 20:52) [8]

Сорри, инет глюкнул


 
PC   (2004-10-12 22:45) [9]

Так нет, каждый раз, запустив прогу, мы можем получить разное кол-во пар картинок и флажков.


 
begin...end ©   (2004-10-12 22:47) [10]


> мы можем получить разное кол-во пар картинок и флажков

Ну и что это меняет?


 
KSergey ©   (2004-10-13 07:01) [11]

> [9] PC   (12.10.04 22:45)

Ерст... Ссылку из [4] читать будем?? Там же все разжевано!


 
PC   (2004-10-13 21:16) [12]


> KSergey ©   (13.10.04 07:01) [11]

Угу, щас читну. Пасиба.


 
Amoeba ©   (2004-10-14 11:08) [13]


> PC   (13.10.04 21:16) [12]
>
> > KSergey ©   (13.10.04 07:01) [11]
>
> Угу, щас читну. Пасиба.

Давно пора было это сделать и перестать ламерить.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.48 MB
Время: 0.032 c
11-1082110098
Bezols
2004-04-16 14:08
2004.10.31
KOLEDB - не получается добавить новые записи


1-1097829218
ghg
2004-10-15 12:33
2004.10.31
дин.массивы и указатели


1-1098254696
Zirf
2004-10-20 10:44
2004.10.31
Как QuickReport е принудительно создать несколько страниц


1-1097840586
Dinnik
2004-10-15 15:43
2004.10.31
Как записать кавычку в SQL ?


14-1096822778
KilkennyCat
2004-10-03 20:59
2004.10.31
Мож встретимся в пятницу?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский