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

Вниз

Как сделать невидимую форму?   Найти похожие ветки 

 
QueenOfRain   (2002-04-04 10:41) [0]

Нужно сделать невидимую форму, с видимой кнопкой))))

Вы читала тут про прозрачную форму нерельно большой кусок, а помню, что вроде есть какая-то мулечка в три-четыре строки...
блин((... памагитеее, плиз))))))


 
wicked   (2002-04-04 12:40) [1]

а что, тот кусок не сработал?.... :)
напиши мне на мыло, скину пример... хотя он тоже не в три строчки...


 
Alx2   (2002-04-04 15:29) [2]

>QueenOfRain © (04.04.02 10:41)
А если у формы BorderStyle := bsNone и размером эту форму сделать размером с кнопку, чтобы она из-за нее не выглядывала?


 
Walker   (2002-04-05 03:52) [3]

позвольте простой пример:


const
F_Transperent: boolean = FALSE;


procedure TForm1.Button1Click(Sender: TObject);
var
r1: hRgn;
p: TPoint;
begin
F_Transperent:=not F_Transperent;
if F_Transperent then with Button1 do
begin
p:=Button1.ClientToScreen(Point(Left, Top));
p.X:=p.X-Left-Form1.Left;
p.Y:=p.Y-Top-Form1.Top;
r1 := CreateRectRgn(p.X, p.Y, p.X+Width, p.Y+Height);
SetWindowRgn(Form1.Handle, r1, true);
end else SetWindowRgn(Form1.Handle, 0, true);
end;




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

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

Наверх





Память: 0.45 MB
Время: 0.007 c
3-35135
Larisa Perova
2002-07-21 13:48
2002.08.12
Interbase создание триггеров


1-35289
Demona
2002-07-31 17:37
2002.08.12
возможно глупый вопрос...


4-35505
oss
2002-06-06 16:25
2002.08.12
COM


3-35139
Oduvan
2002-07-21 17:31
2002.08.12
Проблема с кодировками в InterBase6


4-35509
Burmistroff
2002-06-06 21:06
2002.08.12
PWideChar -> PChar





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский