Скачать: CL | DM;

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

← →
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, или подругому?

---

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

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

---

← →
Arhangel ©   (2002-10-21 20:13) [8]

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

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:17) [9]

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

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.008 c