как прикрепить форму внизу экрана

[aesoem]

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

[Gr@nd]

function GetHeight: Integer;
begin
Result := GetSystemMetrics(SM_CYSCREEN);
end;

function GetWidth: Integer;
begin
Result := GetSystemMetrics(SM_CXSCREEN);
end;

procedure TForm1.KOLFormFormCreate(Sender: PObj);
begin
form.Left:=GetWidth-form.Width;
form.Top:=GetHeight-form.Height-10;
end;

[vovk]

Screen.Width Screen.Height не подойдёт?

[Gr@nd]

Я привел пример, если к примеру работать на KOL, этот вариант более универсален, вобще пишите на кол и мск

[vovk]

а ну да, прошу прощения, тут же ещё панель задач виндовая участвует если с низу. Предложу ещё 1 вариант

var
r:Trect;
.....

SystemParametersInfo(SPI_GETWORKAREA, 0, @r, 0);

Где подсмотрел уже не вспомню..
в общем в r у нас остаётся рабочий стол без панели. естественно не сам стол а координаты точек.