VPF::Изменение визуальной принадлежности компонента...

Aleks26

Дата 13.9.2010, 12:26 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 68
Регистрация: 12.3.2010

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

Если в программе во время выполнения я меняю указание визуальной принадлежности, к примеру, кнопки из формы в панель, как сделать эту кнопку видимой. Сейчас, после выполнения оператора Button1.Parent := Panel1 эта кнопка становится невидимой, т.к. Panel1 ее перекрывает. Каким способом кнопку в этом случае сделать видимой? smile

Frees

Дата 13.9.2010, 12:31 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

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

Цитата(Aleks26 @ 13.9.2010, 15:26

)

Button1.Parent := Panel1 эта кнопка становится невидимой, т.к. Panel1 ее перекрывает

не верю
Button1 в любом случае будет поверх Panel1, (а точнее она будет на ней)

Добавлено через 1 минуту и 12 секунд
а лучше расскажи чего хочешь сделать...

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

Кольцов Виктор Владимирович

aleksh

Дата 13.9.2010, 12:54 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 609
Регистрация: 8.7.2008

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

может

Код


button1.visible := true;

pseud

Дата 13.9.2010, 13:30 (ссылка)

(голосов:1)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

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

или:

Код


Button1.Parent := Panel1;
Button1.Top := 0;
Button1.Left := 0;

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

Испытание чужого терпения можно считать успешным, если оно лопнуло...

Aleks26

Дата 13.9.2010, 14:01 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 68
Регистрация: 12.3.2010

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

Это чисто пример из одного учебника где рассматривается создание некоего компонента во время выполнения программы:

Код


unit unCreateComp1;

interface

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

type
  TForm1 = class(TForm)
    pnlMain1: TPanel;
    btnCreate1: TButton;
    btnMove1: TButton;
    btnFreePanel1: TButton;
    btnMoveButtons1: TButton;
    procedure btnCreate1Click(Sender: TObject);
    procedure btnMove1Click(Sender: TObject);
    procedure btnFreePanel1Click(Sender: TObject);
    procedure btnMoveButtons1Click(Sender: TObject);
  private
    { Private declarations }
    edtNewEdit1: TEdit;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnCreate1Click(Sender: TObject);
begin
 edtNewEdit1 := Tedit.Create(pnlMain1);
// edtNewEdit1.Left := 50;
 edtNewEdit1.Top := 10;
 edtNewEdit1.Width := pnlMain1.ClientWidth - 61;
 edtNewEdit1.Height := pnlMain1.ClientHeight - 10;
 edtNewEdit1.Left := Trunc((pnlMain1.Width - edtNewEdit1.Width)/2);
 edtNewEdit1.Parent := pnlMain1;
 //
end;

procedure TForm1.btnMove1Click(Sender: TObject);
begin
 edtNewEdit1.Parent := Self;
end;

procedure TForm1.btnFreePanel1Click(Sender: TObject);
begin
 pnlMain1.Free;
end;

procedure TForm1.btnMoveButtons1Click(Sender: TObject);
begin
 btnCreate1.Parent := pnlMain1;
 btnMove1.Parent := pnlMain1;
 btnFreePanel1.Parent := pnlMain1;
 btnMoveButtons1.Parent := pnlMain1;
 btnFreepanel1.Visible := True;
 pnlMain1.SendToBack;

end;

end.

Просто в качестве эксперимента я здесь пробую кнопкой btnMoveButtons1 поменять для этих кнопок "родителя", но при нажатии этой кнопки видна остается только панель pnlMain1, а кнопок я не вижу. Я пробую и сделать для одной из кнопок Visible := True и пытался применить к панели метод SendToBack, но этих кнопок все равно не видать.

Frees

Дата 13.9.2010, 14:10 (ссылка)

(голосов:2)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

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

Цитата(Aleks26 @ 13.9.2010, 17:01

)

пытался применить к панели метод SendToBack

и задвинул ее назад вместе с кнопками

испытай BrignToFront

Добавлено через 3 минуты и 27 секунд
либо старые координаты кнопок за пределами размеров панели

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

Кольцов Виктор Владимирович

pseud

Дата 13.9.2010, 14:22 (ссылка)

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

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

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

Цитата(Aleks26 @ 13.9.2010, 14:01

)

но этих кнопок все равно не видать.

спорим мой код поможет? проверь его, настоятельно рекомендую (выше).

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

Цитата

edtNewEdit1.Width := pnlMain1.ClientWidth - 61;
edtNewEdit1.Height := pnlMain1.ClientHeight - 10;

ахренть
тебе не кажется что твой едит все портит, накрывая почти всю панел?

Добавлено через 4 минуты и 50 секунд
но это пофик. высота едита все равно будет ~21.

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

Испытание чужого терпения можно считать успешным, если оно лопнуло...

Aleks26

Дата 13.9.2010, 16:23 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 68
Регистрация: 12.3.2010

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

Цитата

либо старые координаты кнопок за пределами размеров панели

Да. Так и есть. Спасибо. Там просто не хватало размера панели. smile

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