Главная страница
    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
1-35346
Арсентьев
2002-07-30 12:36
2002.08.12
изменить цвет


1-35290
roadrunner
2002-07-31 16:57
2002.08.12
Помогите новичку с печатью


3-35162
MsGuns
2002-07-22 11:01
2002.08.12
Функция Ditto в Delphi


3-35206
Друпи
2002-07-19 08:06
2002.08.12
Как мне сделать...


3-35210
sizmrebi
2002-07-22 17:43
2002.08.12
Pomogite plz





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