Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для Netscaper

Пользователь


Сообщения: 84
Благодарности: 0

Профиль | Отправить PM | Цитировать


Код: Выделить весь код
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. Можно поставить в любой метод.

Отправлено: 23:39, 19-12-2004 | #8