Форма окна по контуру картинки

← →
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]

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

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