VPF::Плавающие окна (Drag&Doc) - Форум программистов

Zeleniy

Дата 15.2.2007, 13:26 (ссылка)

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

Загрузка ...

Новичок

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

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

Привет, всем!

Есть TControl, на нем расположены несколько панелей (пусть Panel1-Panel4).
Нужно чтобы пользователь смог сохранять(загружать) расположение этих панелей как в ДОКЕ, так и когда панели становятся плавающими окнами...

я нашла только две функции ManualDock (с ней нормальная работы и панели занимают нужное положение в TControlBar) и
ManualFloat. Вот с ней у меня проблемы!
Во-первых, я не могу ПРАВИЛЬНОЕ сохранить ЛЕВТ и ТОП окна, относительно экрана, а во-втрых, я не могу ПРАВИЛЬНО расположить это окно!
smile

у меня есть кнопка. по нажатию на нее Panel4 должна стать плавающим окном с (пока что) фиксированными координатами.
Я заметила, если несколько раз нажать на эту кнопку, то плавающие окно каждый раз отображается в РАЗНЫХ частях экрана! smile

Что с этим делать? может как-то по-другому можно решить проблему? smile

Спасибо!

Rennigth

Дата 15.2.2007, 14:53 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

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

Код в студию

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

(* Honesta mors turpi vita potior *)

Zeleniy

Дата 15.2.2007, 15:25 (ссылка)

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

Загрузка ...

Новичок

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

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

этот код я писала по-быстрому, совсем не "выпендривалась" ))))

вообщем, смысл такой : в мемо1 заносятся координаты панели в ДОКЕ (1 и 0 строка ) и плавающего окна (2 и 3).

Код



procedure TForm1.Button1Click(Sender: TObject);
var p:TPoint;
begin
  //сохранить конфу
  Memo1.Clear;
  p.X := panel4.BoundsRect.Right-1;
  p.Y := panel4.BoundsRect.Top;
  p := panel4.ClientToScreen(p);

  Memo1.Lines.Add(IntToStr(Panel4.Left));
  Memo1.Lines.Add(IntToStr(Panel4.Top));
  Memo1.Lines.Add(IntToStr(p.X));
  Memo1.Lines.Add(IntToStr(p.y));
end;

procedure TForm1.Button2Click(Sender: TObject);
var p:TPoint;
begin
  //загрузить конфу
  p.x:=StrToInt(Memo1.Lines.Strings[2]);
  p.Y:=StrToInt(Memo1.Lines.Strings[3]);
  Panel4.ManualFloat(Rect());
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  //это для того чтобы панель в ДОКЕ располагалась не так, как по умолчанию
  Panel4.ManualDock(ControlBar1);
end;

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