В чем дело не могу понять?:(

← →
Arhangel © (2002-10-21 18:57) [0]

Я пытаюсь создать компонент в рун-тайме, как написано в
http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988625051&n=19, но ни чего не выходит. Форма появляется но на ней нет кнопки! Что я сделал не так?

← →
Андрей Прокофьев © (2002-10-21 18:58) [1]

Что-то все-таки не так у Вас.
Пожалуйста, код.

← →
Cr@sh © (2002-10-21 19:03) [2]

Код в студию!

← →
TTCustomDelphiMaster © (2002-10-21 19:07) [3]

Нужно вызвать процедуру CreateButton

← →
Андрей Прокофьев © (2002-10-21 19:09) [4]

2 TTCustomDelphiMaster © (21.10.02 19:07)
Просто и Гениально :))

← →
TTCustomDelphiMaster © (2002-10-21 19:12) [5]

Почитайте это
http://www.delphikingdom.com/helloworld/runtime_comp.htm

← →
Arhangel © (2002-10-21 20:02) [6]

Спасибо за ответ.
А как мне использовать компонент, например:"NMFTP", при этом ни каких форм у меня нет (только код), его надо так же создать, только не писать Create, или подругому?

его надо так же создать
NMFTP2 := TNMFTP.Create(Aplication);
или
NMFTP2 := TNMFTP.Create(nil);

Видемо я всетаки что-то не дописал или забыл, т.к. кнопка все равно не появляется, вот мой код:
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) private { Private declarations } public { Public declarations } procedure CreateButton; end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.CreateButton; var btn : TButton; begin btn := TButton.Create(form1); { Уничтожать кнопку будет форма } btn.Parent := form1; { Родителем кнопки будет форма } //btn.OnClick := ButtonClicked; { Процедура, которая будет исполняться при } btn.Visible := true; btn.Top:=100; btn.Left:=100; btn.Name:="111"; { нажатии на кнопку } end; end.

Щелкни, например два раза на форму
Появится редактор с кодом:

procedure TForm1.FormCreate(Sender: TObject);
begin
CreateButton; //добавь эту строку
end;

В чем дело не могу понять?:( Найти похожие ветки