VPF::Динамическая форма и ее свойства

MacTep

Дата 4.10.2007, 15:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: 4
Всего: 4

Есть код:

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure Click111(Sender: TObject);
  public
    { Public declarations }
  end;


var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Click111(Sender: TObject);
begin
  Width := Width + 5;
end;

procedure TForm1.Button1Click(Sender: TObject);
var frm: TForm;
    btn: TButton;
begin
  frm := TForm.Create(nil);
  frm.Width := 300;
  frm.Height := 200;
  frm.Left := 400;
  frm.Top := 300;

  btn := TButton.Create(frm);
  btn.Parent := frm;
  btn.Width := 75;
  btn.Height := 25;
  btn.left := 100;
  btn.top := 100;
  btn.Caption := 'Привет';
  btn.OnClick := Click111;

  frm.ShowModal;

  frm.Free;
end;

end.

Как сделать, чтобы обработчик нажатия кнопки на динамической форме изменял ширину самой динамической формы, а не формы, которая является его паретном.

--------------------

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

DonPager

Дата 4.10.2007, 15:55 (ссылка)

(нет голосов)

Загрузка ...

Колдырь

Профиль
Группа: Участник
Сообщений: 327
Регистрация: 28.3.2003
Где: Воронеж

Репутация: нет
Всего: 2

в обротчике обращайся к паренту сендера (т/е к твоей новой форме)

Добавлено через 2 минуты и 13 секунд

Код


OnClick111(Sender :Tobject);
begin
with (Sender as TWinControl).Parent do begin
 width := 100;
end;
end;

--------------------

кодер + лодырь = колдырь

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »