Форум: "Основная";
Текущий архив: 2002.10.31;
Скачать: [xml.tar.bz2];
ВнизВ чем дело не могу понять?:( Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.31;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.01 c