плавающие окна

← →
>>DEATH<< (2007-06-23 15:40) [0]

Подскажите пожалуйста как сделать плавающие окошко

Заранее спасибо!!!

← →
Dib@zol (2007-06-23 15:54) [1]

Чтото типа WS_POPUP? Если да, то

SetWindowPos([хендл окна], HWND_TOPMOST, [x-коорд. окна], [y-коорд. окна], [ширина], [высота], SWP_SHOWWINDOW);

← →
Ламер 2.Х © (2007-06-23 15:55) [2]

что это? перетаскивать мышкой что ли???:)))

← →
Dib@zol (2007-06-23 15:57) [3]

> Ламер 2.Х © (23.06.07 15:55) [2]

"Плавающее" в терминологии форточек означает "всплывающее", сиречь остающееся на поверхности даже если неактивно, так как остальные, не всплывающие, не могут его перекрыть.

← →
>>DEATH<< (2007-06-23 16:37) [4]

> что это? перетаскивать мышкой что ли???:)))
>

это типакак В ReGET окошко с иконкой,,или в internet download master окошко графиком скорости закачки

← →
Dib@zol (2007-06-23 16:42) [5]

Впще в Инете я новичок :((( поэтому еси не трудно пришли картинку!

← →
Dib@zol (2007-06-23 16:48) [6]

Или на крайняк опиши подробнее, КАК оно должно выглядеть. Должно ли оно быть полупрозрачным, перетаскиваемым мышой, со скруглёнными краями итп.

← →
Инс © (2007-06-23 16:56) [7]

Сделайте маленькую формочку, перекройте CreateParams, например, так:

TForm2 = class(TForm) protected procedure CreateParams(var Params: TCreateParams); override; end; ... procedure TForm2.CreateParams(var Params: TCreateParams); begin inherited; with Params do begin WndParent:=0; Style:=WS_POPUP; ExStyle:=WS_EX_TOPMOST; WindowClass.Style:=WindowClass.Style or CS_SAVEBITS or CS_DROPSHADOW; if NewStyleControls then ExStyle:=ExStyle or WS_EX_TOOLWINDOW; AddBiDiModeExStyle(ExStyle); end; end;

Уберите заголовок формы, а если хотите, чтобы ее можно было перетаскивать, в обработчике OnMouseDown напишите такой код:

ReleaseCapture; Perform(WM_SYSCOMMAND,$F012,0);

← →
>>DEATH<< (2007-06-23 17:59) [8]

Инс, спасибо то что надо))
только еще два вопоса:
1 как убрать тень
2 как сделть чтоб было не поверх всех окон

Хм, я думал так наоборот круче, что ж, уберите or CS_DROPSHADOW и ExStyle:=WS_EX_TOPMOST;

← →
>>DEATH<< (2007-06-23 18:03) [10]

это для настроек,,вдруг кому так не понравится или будет мешать

Тогда это можно будет потом подрубать или отрубать динамически. Но это будет вашим домашним заданием ;) Посмотрите функции SetWindowLong/GetWindowLong

← →
>>DEATH<< (2007-06-23 18:38) [12]

Инс, пасибо дальше разбирусь))

плавающие окна Найти похожие ветки