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

Вниз

Как создать свой Button ч/з код.   Найти похожие ветки 

 
AlexQ   (2002-08-13 12:49) [0]

Не могу создать баттон. пробовал по разному, неполучается.


 
Skier   (2002-08-13 12:56) [1]

>AlexQ
Покажи как пробовал ...


 
Cr@sh   (2002-08-13 13:04) [2]

public
{ Public declarations }
New:TButton;
procedure NewDown(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
new:=TButton.Create(Self);
with new do
begin
parent:=self;
caption:="OK!!!";
left:=29;
top:=40;
onClick:=NewDown;
end;
end;

procedure TForm1.NewDown(Sender: TObject);
begin
Form1.Close;
end;


 
kronprince   (2002-08-13 13:06) [3]

- Блин :) - ну ты понял да ???

with TButton.Create(self) do begin
Parent:=Form1;
// всякая разная фигня
end;



 
Skier   (2002-08-13 13:15) [4]

>AlexQ
Хм. Вроде всё правильно... А что собственно не получается ?


 
Кулюкин Олег   (2002-08-13 14:05) [5]

Королевства Delphi
Раздел Hello World!
Статья "Жизнь и смерть в режиме run-time"
http://www.delphikingdom.com/helloworld/runtime_comp.htm


 
KSergey   (2002-08-13 14:14) [6]

Почитайте
а) статью на этом сайте про создание компонент в run-time
б) статью Елены Филиповой "Жизнь и смерть в режиме run-time" на сайте "Королевство дельфи". Только не спрашивайте адрес, я знаю только один - ya.ru


 
Mike Kouzmine   (2002-08-13 14:22) [7]

type TNotifyEvent = procedure (Sender: TObject) of object;
property OnClick: TNotifyEvent;



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

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

Наверх





Память: 0.45 MB
Время: 0.008 c
14-71379
Squ
2002-07-25 08:58
2002.08.22
HALCyon


3-71043
Black Cat
2002-08-01 15:27
2002.08.22
Oracle и


3-71019
ППавел
2002-08-01 09:43
2002.08.22
Отчет


1-71189
harismatik
2002-08-09 18:11
2002.08.22
Не помещается вся сторка в ComboBox


4-71414
Nickolay
2002-06-06 18:28
2002.08.22
Номер иконки в Dll или Exe файле больше их количества





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