![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
StaticText [D7, Win95/98]
DillerXX © (2003-11-15 17:48:00)
Я помещаю на рабочий стол TStaticText, но под ним остаётся серая полоса. Как её убрать. Transparent пробовал.
DillerXX (2003-11-17 14:40:00) [1]
> SetBkmode(Form1.Combobox1.canwas.handle, TRANSPARENT);
Вот только что пробовал: нифига не работает :) Что получится то должно?? КомбоБокс как КомбоБокс :)
Prov (2003-11-16 19:36:00) [2]
Вот, только что пробовал, всё работает: SetBkmode(Form1.Combobox1.canwas.handle, TRANSPARENT);
DillerXX (2003-11-16 19:01:00) [3]
Мать твою ;)! Опять глюки!
DillerXX (2003-11-16 19:00:00) [4]
А SetWindowLong, стиль WS_EX_TRANSPARENT не получается. Только текст жирным становится. Короче вот как я пишу:
h := FindWindow("Progman", nil);
t:=TStaticText.Create(Self);
t.Top:=270;
t.Left:=390;
t.Caption:="Передача данных успешно завершена";
t.Width:=GetTextWidth(t.Caption,SendMessage(Handle, WM_GETFONT, 0, 0));
t.ParentWindow:=h;
t.Transparent:=true;
// SetWindowLong(t.Handle,0,WS_EX_TRANSPARENT);
t.Visible:=true;
t.Transparent:=true;
GetTextWidth
DillerXX (2003-11-16 19:00:00) [5]
А SetWindowLong, стиль WS_EX_TRANSPARENT не получается. Только текст жирным становится. Короче вот как я пишу:
h := FindWindow("Progman", nil);
t:=TStaticText.Create(Self);
t.Top:=270;
t.Left:=390;
t.Caption:="Передача данных успешно завершена";
t.Width:=GetTextWidth(t.Caption,SendMessage(Handle, WM_GETFONT, 0, 0));
t.ParentWindow:=h;
t.Transparent:=true;
// SetWindowLong(t.Handle,0,WS_EX_TRANSPARENT);
t.Visible:=true;
t.Transparent:=true;
GetTextWidth это моя функция. Только не пишите мне то, что я случайно написал выше. ;)
DillerXX (2003-11-16 18:43:00) [6]
Фу, блин!! Это я не сюда хотел...
DillerXX (2003-11-16 18:42:00) [7]
А в ФАК слабо глянуть? Там Игорь Шевченко приводит отличный код!! В разделе АПИ поищи...
Prov (2003-11-16 11:14:00) [8]
SetWindowLong, стиль WS_EX_TRANSPARENT