Скачать: CL | DM;

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

← →
>>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 как сделть чтоб было не поверх всех окон

---

← →
Инс ©   (2007-06-23 18:00) [9]

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

---

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

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

---

← →
Инс ©   (2007-06-23 18:12) [11]

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.012 c