Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Размещение формы на экране

Автор: Михалыч 4.4.2009, 20:22

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

Автор: Данкинг 4.4.2009, 20:42

А если свойство Position оставить в poDesigned и разместить форму, где нужно, то не получится?

Автор: Михалыч 4.4.2009, 21:07

На других компьютерах разрешение экрана другое,а мне нужно привязать форму так,что бы на любом разрешении форма была рядом с трее

Автор: razsagal 4.4.2009, 22:33

Код


procedure TForm1.FormShow(Sender: TObject);
begin
  Left := Screen.WorkAreaWidth  + Screen.WorkAreaLeft - Width;
  Top  := Screen.WorkAreaHeight + Screen.WorkAreaTop  - Height;
end;

Добавлено через 9 минут и 42 секунды
а можно и такой вариант, "всегда у часов":

Код


procedure TForm1.FormShow(Sender: TObject);
begin
 if Screen.WorkAreaLeft > 0 then
  Left := Screen.WorkAreaLeft
 else
  Left := Screen.WorkAreaWidth  + Screen.WorkAreaLeft - Width;

 if Screen.WorkAreaTop > 0 then
  Top  := Screen.WorkAreaTop
 else
  Top  := Screen.WorkAreaHeight + Screen.WorkAreaTop  - Height;
end;