VPF::Координаты экрана - узнать и направить

Andreyzpr

Дата 3.9.2007, 07:33 (ссылка)

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

Загрузка ...

Бывалый

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

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

Как узнать те координаты экрана, чтобы окно открылось с правой стороны возле пуска????
Вот как в некоторых программах (например qip) всплывающее окошко возле пуска выходит..
И еще. Как узнать, где находится окно на данный момент, тоесть если его передвинули с пуска в другое место, чтобы ег можно было запомнить и при следующем запуске воспроизвести???

Rodman

Дата 3.9.2007, 08:39 (ссылка)

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

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

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

Цитата(Andreyzpr @ 3.9.2007, 07:33

)

координаты экрана

Код


Screen.Width;
Screen.Height;

тебе в помощь!!!

Цитата(Andreyzpr @ 3.9.2007, 07:33

)

чтобы ег можно было запомнить и при следующем запуске воспроизвести???

координаты хранить надо, например в INI-файле (докинг называется!)

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

CRM с функцией АвтоОбзвона

Лотереи мира

Snowy

Дата 3.9.2007, 08:54 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Код


uses ShellAPI;

var
  r: TAppBarData;
begin
  FillChar(r, SizeOf(r), 0);
  r.cbSize := SizeOf(r);
  SHAppBarMessage(ABM_GETTASKBARPOS, r);
  // В r координаты таскбара

pseud

Дата 3.9.2007, 09:27 (ссылка)

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

Загрузка ...

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

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

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

Цитата(Rodman @ 3.9.2007, 08:39

)

Screen.Width;Screen.Height;

ошибочка, а как же таскбар? который может занимать пол экрана снизу или слева или где еще

вот пример, как загнать окно в правый нижний угол
можно в процедуре OnCreate написать или OnShow

Код


  Left:= Screen.WorkAreaWidth - Width;
  Top:= Screen.WorkAreaHeight - Height;

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

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

BaD_SeCt0R

Дата 3.9.2007, 10:47 (ссылка)

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

Загрузка ...

Lazy Coder

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

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

Что-то типа того:

Код


procedure TForm1.FormDblClick(Sender: TObject);
var
  TrayRect: TRect;
begin
  if GetWindowRect(FindWindow('Shell_TrayWnd',''),TrayRect) then
   begin
    Form1.Left:=Screen.Width-200;
    Form1.Top:=TrayRect.Top-Screen.Height div 3;
    Form1.Width:=200;
    Form1.Height:=Screen.Height div 3;
   end;
end;

Цитата(pseud @ 3.9.2007, 09:27

)

ошибочка, а как же таскбар? который может занимать пол экрана снизу или слева или где еще

Это если таскбар снизу. Естесственно, нужно глядеть, что в TrayRect

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

Кто владеет информацией - владеет миром. (С) Френсис Бэкон.

Andreyzpr

Дата 3.9.2007, 14:46 (ссылка)

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

Загрузка ...

Бывалый

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

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

Всем спасибо за помощь, то что мне надо в примерах есть smile

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