| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

В чем дело не могу понять?:( [D5, Win95/98]

Arhangel ©   (2002-10-21 18:57:00) 

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

---

Андрей Прокофьев   (2002-10-21 20:17:00) [1]

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

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

---

Arhangel   (2002-10-21 20:13:00) [2]

Видемо я всетаки что-то не дописал или забыл, т.к. кнопка все равно не появляется, вот мой код:

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.


---

Андрей Прокофьев   (2002-10-21 20:08:00) [3]

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

---

Arhangel   (2002-10-21 20:02:00) [4]

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

---

TTCustomDelphiMaster   (2002-10-21 19:12:00) [5]

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

---

Андрей Прокофьев   (2002-10-21 19:09:00) [6]

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

---

TTCustomDelphiMaster   (2002-10-21 19:07:00) [7]

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

---

Cr@sh   (2002-10-21 19:03:00) [8]

Код в студию!

---

Андрей Прокофьев   (2002-10-21 18:58:00) [9]

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

---

Наверх