TButton

← →
kizam (2005-11-30 12:09) [0]

вот делаю так,но кнопка ,новая не поевляется. как можно исправить это?

procedure TForm1.Button1Click(Sender: TObject); var newitem:tbutton; begin NewItem := tbutton.Create(self); newitem.Caption:="s"; newitem.Height:=50; newitem.Width:=50; end;

← →
stone © (2005-11-30 12:10) [1]

еще забыл указать Parent и Visible

← →
Zeqfreed © (2005-11-30 13:44) [2]

stone © (30.11.05 12:10) [1]

> еще забыл указать Parent и Visible

Visible по умолчанию равно true, так что его можно не трогать.

← →
newitem (2005-11-30 13:58) [3]

не мешало бы указать где расположен newitem (Top, Left)

← →
kizam (2005-12-01 02:31) [4]

stone
пробовал,не получается.

newitem
а что, этого
newitem.Height:=50; newitem.Width:=50;

не достаточно?

← →
ЮЮ © (2005-12-01 03:33) [5]

>не достаточно?

Это размеры, а не положение. Кнопка стакими размерами может быть расположена на любом месте формы :)

>пробовал,не получается.
Не верю. Пиведи полный код. Или сверху что-нибудь ещё создал, ведь о положении компонентов, ты не заботишься

← →
Anatoly Podgoretsky © (2005-12-01 09:57) [6]

Проще, не мешало бы установить все необходимые свойства. Минимум это Parent

← →
alex_*** © (2005-12-01 10:15) [7]

под parent"ом понимается контрол, на котором должна лежать кнопка

← →
alexproger © (2005-12-01 13:30) [8]

здравствуйте

Если я правильно понял, Вы пишете переменную локальную, т.е. локально видимую в процедуре, поэтому по выходе из процедуры Вы его теряете. Необходимо объявить эту переменную как член класса формы, а после этого применить все советы, приведенные выше

Успехов

← →
kizam (2005-12-01 13:32) [9]

с Parent- чо та проблемы. не знаю как им пользоватся. вот весь код

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var newitem:tbutton; begin newitem:=tbutton.Create(self); newitem.Visible:=true; newitem.Height:=200; newitem.Width:=200; newitem.Caption:="sam"; end; end.

в свойстве про Парент есть

newitem.ParentBiDiMode
newitem.ParentWindow
newitem.ParentShowHint
newitem.ParentFont

последние 2 по логике совсем не в тему. пожалюста скажите где я ошибся?

← →
Parent (2005-12-01 18:33) [10]

procedure TForm1.Button1Click(Sender: TObject);
var
newitem:tbutton;
begin
newitem:=tbutton.Create(self);
newitem.Parent:=self;
newitem.Visible:=true;
newitem.Height:=200;
newitem.Width:=200;
newitem.Caption:="sam";
end;

← →
Parent (2005-12-01 18:41) [11]

Полная программа с созданием динамической кнопки и события onclick:
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); procedure oncl(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.oncl(Sender: TObject); begin Caption := "click"; end; procedure TForm1.Button1Click(Sender: TObject); var newitem: tbutton; begin newitem := tbutton.Create(self); newitem.Parent := self; newitem.OnClick := Form1.oncl; newitem.Visible := true; newitem.Height := 200; newitem.Width := 200; newitem.Caption := "sam"; end; end.

← →
kizam (2005-12-01 23:22) [12]

вот это то что нужно

newitem.Parent := self;
пасиб!

> [12] kizam (01.12.05 23:22)
> вот это то что нужно
>
> newitem.Parent := self;
> пасиб!

Про это тебе говорили с самого начала, причем ты утверждал, что установка Parent"а "не помогает".

TButton Найти похожие ветки