[Netscaper]

То есть как? Отлавливаешь WM_DISPLAYCHANGE, в зависимости от разрешения меняешь положение...
Простой пример:

Код:

...
type TForm1 = ...
  procedure DisplayResChange(var Message : TMessage); message WM_DISPLAYCHANGE;
...

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  Left := Screen.Width - Width - 1;
  Top := 0;
end;

procedure TForm1.DisplayResChange(var Message : TMessage);
var NewWidth, NewHeight : Word;
begin
  NewWidth := Message.LParamLo;
  NewHeight := Message.LParamHi;
  Left := NewWidth - Width - 1;
  Top := 0;
  inherited;
end;

При создании окно переносится в правый верхний угол. При изменении разрешения экрана - смещается на нужное место.

[fossil]

Netscaper
Хм... спасибо конечно, но хотелось бы другой вариант...
Мне бы лучше подошел вариант когда прога определяет расширение, и в зависимости от расширения создает форму... А еще лучше чтобы сама автоматически висела в правом нижнем углу

[Netscaper]

Не очень понимаю, что значит

сама автоматически висела

...
При изменении разрешения экрана система посылает всем окнам сообщение с новыми размерами экрана.
Если для каких-то диапазонов надо использовать разные формы, можно сделать основное окно невидимым (MainForm.Visible := False), причем не забыть указать, что Application.ShowMainForm := False в проекте. Невидимое окно все равно будет получать сообщения WM_DISPLAYCHANGE и в обработчике создавать нужную форму LowResForm := TLowResForm.Create(nil).

[Savant]

fossil
В отличие от тебя, Netscaper все делает грамотно (правильно) и обоснованно. Не поленись объяснить, что значит "сама автоматически висела"... Если ты хочешь такое свойство окну приписать, то тебе его все равно придется реализовать через код, предложенный Netscaper

[Netscaper]

Savant
Спасибо за поддержку. Действительно, надо объяснять свои потребности.

[fossil]

Netscaper
Ясно. Спасибо.
Но я бы хотел чтобы моя одна форма при активации определяла разрешение экрана, задавала параметры Top и Left и после этого появлялась уже в нужном месте.

[Netscaper]

Код:

procedure TForm1.FormShow(Sender: TObject);
var R : TRect;
begin
  SystemParametersInfo(SPI_GETWORKAREA, 0, @R, 0);
  Left := R.Right - Width;
  Top := R.Bottom - Height;
end;

Появляется в правом нижем углу с учетом Taskbar. Можно поставить в любой метод.

[fossil]

Netscaper
То что надо. Спасибо!