Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> как сделать форму прозрачной? форма находится в вернем правом углу 
:(
    Опции темы
DeMoNN
  Дата 27.9.2008, 20:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 179
Регистрация: 21.3.2008

Репутация: нет
Всего: 2
как сделать форму прозрачной?
рамки(border) нет. форма лежит в правом верхнем углу экрана
пробовал в form.create засунуть код,
Код

  x:=173;
  y:=0;
  Scr=TCanvas.Create;
  Scr.Handle=GetDC(HWND_DESKTOP);
  repeat
  repeat
  Canvas.Pixels[x, y]=Scr.Pixels[Screen.Width-x, y];
  x:=x-1;
  until x=0;
  y:=y+1;
  x:=173;
  until y=375;

но форма остается серой((
 smile  smile  smile 
в drkb не нашол
PM MAIL ICQ   Вверх
THandle
Дата 27.9.2008, 20:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372
AlphaBlend, AlphaBlendValue?
PM   Вверх
DeViLMaster
Дата 27.9.2008, 21:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 34
Регистрация: 9.9.2008

Репутация: нет
Всего: нет
Код

AlphaBlend:=true;
AlphaBlendValue:=150;


можеш впихнуть код в форму 
прозрачность  от 0 до 255
PM MAIL   Вверх
DeMoNN
Дата 28.9.2008, 16:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 179
Регистрация: 21.3.2008

Репутация: нет
Всего: 2
спс, про это не знал, но я другое имел в виду-форма станивится прозрачной, а компоненты видны
PM MAIL ICQ   Вверх
XperT
Дата 29.9.2008, 16:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 269
Регистрация: 19.8.2006

Репутация: 2
Всего: 4

Код

procedure TForm1.FormCreate(Sender: TObject);
begin
self.TransparentColorValue:=$00F178E8;
self.color:=self.TransparentColorValue;
self.TransparentColor:=true;
end;


Это сообщение отредактировал(а) XperT - 29.9.2008, 16:07
PM MAIL   Вверх
BaD_SeCt0R
Дата 29.9.2008, 16:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Lazy Coder
**


Профиль
Группа: Участник
Сообщений: 432
Регистрация: 9.10.2006
Где: Анапа

Репутация: 4
Всего: 18
DeMoNN, OMG, 51 сообщение на форуме, а поиском так и не научился пользоваться


--------------------
Кто владеет информацией - владеет миром. (С) Френсис Бэкон.
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0438 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.