Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.15;
Скачать: CL | DM;

Вниз

Удаление   Найти похожие ветки 

 
esprit_bel   (2002-07-02 07:27) [0]

ББ создал едитp

rocedure TForm1.Button1Click(Sender: TObject);
var x:TEdit; // объявляем переменную типа TEdit
begin
x:=TEdit.create(self);// создаем экземпляр компонента
x.parent:=form1;// текстовое поле появится на форме
x.left:=10;
x.top:=10;
x.Width:=250;
x.Text:="Привет компонент появился сам!!!";
end;

а как его удалить.


 
MBo   (2002-07-02 07:35) [1]

сделай x глобальной переменной и
x.free
если их много, заведи список



 
esprit_bel   (2002-07-02 07:38) [2]

ББ спосибо, ну а если я создам баттон код ему можно прописать?


 
Alx2   (2002-07-02 07:41) [3]

Конечно. Для этого нужно присвоить событию OnClick некоторый метод.


 
esprit_bel   (2002-07-02 07:54) [4]

ББ а как это выглядит, в дельфе?


 
MBo   (2002-07-02 07:59) [5]

dynEdit.OnClick:=Edit1Click;


 
esprit_bel   (2002-07-02 08:28) [6]

ББ все красиво, но то что будет делать моя кнопа я должен прописать заранее, а можно назначить ей какие-либо действия после компиляции?


 
MBo   (2002-07-02 08:29) [7]

напиши несколько обработчиков, в runtime выбирай нужный


 
esprit_bel   (2002-07-02 08:42) [8]

ББ это все не то, если я не знаю что моя кнопа будет делать.
Как таскать элементы по форме мышью?


 
MBo   (2002-07-02 08:45) [9]

http://www.delphikingdom.com/helloworld/runtime_comp.htm



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

Текущий архив: 2002.07.15;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.011 c
14-47751
galik
2002-06-12 18:22
2002.07.15
Где найти?


3-47119
olban
2002-06-21 08:01
2002.07.15
Доступ к БД


1-47283
Floyd
2002-06-30 11:43
2002.07.15
ListBox


7-47816
Ezh
2002-04-19 12:18
2002.07.15
Печать из StringGrid


1-47315
SDv-503
2002-07-01 00:17
2002.07.15
Как программно нажать на .... (+)





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский