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

Форма окна по контуру картинки   Найти похожие ветки 

← →
dsa256   (2007-01-18 11:48) [0]

Как сделать чтобы форма окна была по контуру картинки, которая расположена на ней?

---

← →
wander   (2007-01-18 11:57) [1]

Если это Delphi 6,7 сделать нужно следующее :
1. Покрась форму допустим в черный цвет;
2. В свойствах формы найди свойство - TransperentColor - поставь true;
3. Чуть ниже TransperentColor - выбери цвет - тот которого форма (черный);
4. Убери из формы BorderStyle - None;
5. Все форму видно вообще не будет, а картинка будет придавать форму твоего окна

---

← →
dsa256   (2007-01-18 12:01) [2]

А как сделать, чтобы форма перетаскивалась за эту картинку? =)

---

← →
wander   (2007-01-18 12:15) [3]

Щас потерпи - пришлю код как енто сделать .

---

← →
wander   (2007-01-18 12:20) [4]

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);
const

SC_DRAGMOVE : Longint = $F012;
begin

if Button <> mbRight then
begin
ReleaseCapture;
SendMessage(Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;
end;

---

← →
dsa256   (2007-01-18 12:22) [5]

Спасибо!

---

← →
wander   (2007-01-18 12:24) [6]

Наслаждайся - это отличный способ делать оформление не такое как у всех

---

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

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



Память: 0.46 MB
Время: 0.032 c