VPF::поместить label на pagecontrol - Форум программистов

СЭНСЭЙ

Дата 9.4.2009, 19:23 (ссылка)

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

Загрузка ...

Опытный

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

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

Привет всем.
Такой вопрос:
на форме имеется лейба или кнопка - не важно, и pagecontrol.
1 как в программе перенести объект с формы не pagecontrol?
2 как во время редактирования проекта перенести объект с формы на pagecontrol?
П.С. при перетаскивании объект остается на форме, скрываясь за pagecontrol'ом

Данкинг

Дата 10.4.2009, 01:22 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Цитата(СЭНСЭЙ @ 9.4.2009, 20:23

)

2 как во время редактирования проекта перенести объект с формы на pagecontrol?

А если вырезать кнопку, кликнуть на pagecontrol и вставить её?

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

There's nothing left but silent epitaphs.

Virtuals

Дата 10.4.2009, 05:56 (ссылка)

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

Загрузка ...

Опытный

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

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

СЭНСЭЙ,
п2 тебе уже ответил
Данкинг,

п1. на форму брось 3 кнопки и PageControl
изучай smile

Код


{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var List: TList;
    Index: integer;
begin
  List := TList.Create;

  Form1.GetTabOrderList(List);
  Index := List.IndexOf(Button3);
if Index>(-1) then Form1.RemoveControl(Button3);
  List.Clear;
  PageControl1.GetTabOrderList(List);
  Index := List.IndexOf(Button3);
if Index<0 then PageControl1.InsertControl(Button3);;
  List.Clear;
  List.Destroy;
end;

procedure TForm1.Button2Click(Sender: TObject);
var List: TList;
    Index: integer;
begin
  List := TList.Create;
  PageControl1.GetTabOrderList(List);
  Index := List.IndexOf(Button3);
if Index>(-1) then PageControl1.RemoveControl(Button3);
  List.Clear;
  Form1.GetTabOrderList(List);
  Index := List.IndexOf(Button3);
if Index<0 then Form1.InsertControl(Button3);;
  List.Clear;
  List.Destroy;
end;

end.

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