| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TButton

kizam ©   (2005-11-30 12:09:00) 

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

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

---

Джо   (2005-12-01 23:37:00) [1]

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

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

---

kizam   (2005-12-01 23:22:00) [2]

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

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

---

Parent   (2005-12-01 18:41:00) [3]

Полная программа с созданием динамической кнопки и события 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.


---

Parent   (2005-12-01 18:33:00) [4]

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;

---

kizam   (2005-12-01 13:32:00) [5]

с  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 по логике совсем не в тему. пожалюста скажите где я ошибся?

---

alexproger   (2005-12-01 13:30:00) [6]

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

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

Успехов

---

alex_***   (2005-12-01 10:15:00) [7]

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

---

Anatoly Podgoretsky   (2005-12-01 09:57:00) [8]

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

---

ЮЮ   (2005-12-01 03:33:00) [9]

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

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

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

---

kizam   (2005-12-01 02:31:00) [10]

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

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

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

---

newitem   (2005-11-30 13:58:00) [11]

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

---

Zeqfreed   (2005-11-30 13:44:00) [12]

stone ©   (30.11.05 12:10) [1]

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

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

---

stone   (2005-11-30 12:10:00) [13]

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

---

Наверх