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

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;
пасиб!

---

← →
Джо ©   (2005-12-01 23:37) [13]

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

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

---

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

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



Память: 0.48 MB
Время: 0.025 c