Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Форма окна по контуру картинки [D7]

dsa256 © (2007-01-18 11:48:00)
Как сделать чтобы форма окна была по контуру картинки, которая расположена на ней?

wander (2007-01-18 12:24:00) [1]
Наслаждайся - это отличный способ делать оформление не такое как у всех

dsa256 (2007-01-18 12:22:00) [2]
Спасибо!

wander (2007-01-18 12:20:00) [3]
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;

wander (2007-01-18 12:15:00) [4]
Щас потерпи - пришлю код как енто сделать .

dsa256 (2007-01-18 12:01:00) [5]
А как сделать, чтобы форма перетаскивалась за эту картинку? =)

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »