edit3->Top=10;
edit3->Left=20;
edit3->Height=100;
edit3->Width=200;
как вставить компонент из кода на форму
требуется при выполнении программы вставить компонент (это требуется сделать именно из кода), ну скажем edit3 в определенное место в форме
так этот код только поместит помпонент в конкретное место, а ещё требуется его добавить из кода, то есть edit3 на форме не существует до выполнения данной операции
Данный код реализует то, что ты хочешь сделать
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes,Graphics, Controls,
StdCtrls{Важно, чтобы этот модуль был включен в твой проект},
Forms,Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormResize(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
//Важно, чтобы твой Edit3 не был инкапсулирован в класс, иначе будет ошибка
Edit3:TEdit;
implementation
{$R *.dfm}
{++++++++++++++++++++++++++++++++++++++++++}
procedure TForm1.FormCreate(Sender: TObject);
begin
//Создаем объект типа TEdit, и владельцем делаем нашу форму Form1
Edit3:=TEdit.Create(Form1);
Edit3.Parent:=Form1;
end;
{++++++++++++++++++++++++++++++++++++++++++}
procedure TForm1.FormResize(Sender: TObject);
begin
//Собственно, сама прорисовка компонента
with Edit3 do
begin
//Эти значения на твое усмотрение
Left:=100;
Top:=100;
Width:=20;
Height:=20;
end;
end;
interface
uses
Windows, Messages, SysUtils, Variants, Classes,Graphics, Controls,
StdCtrls{Важно, чтобы этот модуль был включен в твой проект},
Forms,Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormResize(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
//Важно, чтобы твой Edit3 не был инкапсулирован в класс, иначе будет ошибка
Edit3:TEdit;
implementation
{$R *.dfm}
{++++++++++++++++++++++++++++++++++++++++++}
procedure TForm1.FormCreate(Sender: TObject);
begin
//Создаем объект типа TEdit, и владельцем делаем нашу форму Form1
Edit3:=TEdit.Create(Form1);
Edit3.Parent:=Form1;
end;
{++++++++++++++++++++++++++++++++++++++++++}
procedure TForm1.FormResize(Sender: TObject);
begin
//Собственно, сама прорисовка компонента
with Edit3 do
begin
//Эти значения на твое усмотрение
Left:=100;
Top:=100;
Width:=20;
Height:=20;
end;
end;
большое спасибо!