Форум: "Основная";
Текущий архив: 2005.12.04;
Скачать: [xml.tar.bz2];
ВнизФорму в нижний равый угол Найти похожие ветки
← →
diwww (2005-11-08 12:37) [0]Как сделать чтобы форма открывалась всегда в нижнем правом углу десктопа независимо от размеров формы и разрешения экрана?
← →
Юрий Зотов © (2005-11-08 12:42) [1]В OnShow:
Left := Screen.Width - Width;
Top := Screen.Height - Height;
← →
NORDmen © (2005-11-08 14:36) [2]если без юнита forms используй соотвественно
GetSystemMetrics(SM_CXSCREEN);
GetSystemMetrics(SM_CYSCREEN);
//windows.pas
← →
Игорь Шевченко © (2005-11-08 15:26) [3]Ну а чтобы еще и таскбаром не закрывалась, то
procedure TfMain.FormShow(Sender: TObject);
var
Rect: TRect;
begin
SystemParametersInfo (SPI_GETWORKAREA, 0, @Rect, 0);
Left := Rect.Right - Width;
Top := Rect.Bottom - Height;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.12.04;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.033 c