Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Восстановление размера окна

Автор: Mike Orriss

Существует ли какой-либо способ получения координат формы, которые она должна иметь при восстановлении с максимально распахнутого состояния?

Используйте API Функцию GetPlacement. Следующая выдержка из кода моего компонента TBag демонстрирует это:


procedure TBag.SetFormPlace(AName: string; AForm: TForm);
var
  s: string[99];
  Place: TWindowPlacement;
begin
  Place.length := SizeOf(TWindowPlacement);
  if not GetWindowPlacement(AForm.Handle, @Place) then
    exit;
  with Place do
  begin
    s := IntToStr(Flags);
    s := AppendS(s, ShowCmd);
    s := AppendS(s, ptMinPosition.X);
    s := AppendS(s, ptMinPosition.Y);
    s := AppendS(s, ptMaxPosition.X);
    s := AppendS(s, ptMaxPosition.Y);
    s := AppendS(s, rcNormalPosition.Left);
    s := AppendS(s, rcNormalPosition.Top);
    s := AppendS(s, rcNormalPosition.Right);
    s := AppendS(s, rcNormalPosition.Bottom);
  end;
  SetString(AName, s);
end;

Проект Delphi World © Выпуск 2002 - 2024
Автор проекта: USU Software
Вы можете выкупить этот проект.