Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.02.04;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.02.04;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.048 c
2-1169314081
FIL-23
2007-01-20 20:28
2007.02.04
как перевести символ в двоичный код и обратно?


15-1168528033
iXT
2007-01-11 18:07
2007.02.04
IIS 6 Win2003 Server


15-1168765710
&amp;#65207;&amp;#65204;
2007-01-14 12:08
2007.02.04
Тест - Как постить в журнал (6)?


2-1168967984
SerjVasiljev
2007-01-16 20:19
2007.02.04
Получение имён файлов


15-1169037921
stone
2007-01-17 15:45
2007.02.04
Глюк в базах





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский