Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > форма как icq

Автор: bagos 22.1.2009, 17:30

когда открыта окно icq,то все программа которые были развернуты уменьшаются по ширине на ширину окна icq. Как добиться такого эффекта?
и еще вопрос по форме: если делаю form.top := 0; form.height := Screen.WorkAreaHeight; То форма на одну единицу смещается по top, приходится делать top := - 1 , form.height := Screen.WorkAreaHeight + 1 поему так?

Автор: Sairex 22.1.2009, 20:10

Ради интереса посмотри в исходниках плагинов для миранды. Например IEview, clist_modern. Там это все прописано... Конечно, если ты знаешь C++ или VS. Найти не сложно, достаточно погуглить.

Автор: bagos 22.1.2009, 22:01

спасибо тебе за ответ, но ни с си ни с vs я не знаком :(

Автор: Akella 23.1.2009, 11:42

Не стану утверждать, но, по-моему нужно изменить размер клиентской области рабочего стола, погугли.

Автор: bagos 23.1.2009, 13:39

Akella, это верно.
типо того

Код


procedure TForm1.Button2Click(Sender: TObject);
var r:TRect;
begin
SystemParametersInfo(SPI_GETWORKAREA,0,@r,0);
RR:=r;
r.Right:=r.Right-100;
r.Bottom:=r.Bottom-100;
SystemParametersInfo(SPI_SETWORKAREA,0,@r,SPIF_SENDCHANGE);
end;

procedure TForm1.Button3Click(Sender: TObject);
var r:TRect;
begin
r:=RR;
SystemParametersInfo(SPI_SETWORKAREA,0,@r,SPIF_SENDCHANGE);

end;

только работает с глюками :(

Автор: bagos 25.1.2009, 06:21

вопрос так и не решил, прошу помощи!