Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > как сделать форму прозрачной?

Автор: DeMoNN 27.9.2008, 20:18

как сделать форму прозрачной?
рамки(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

в drkb не нашол

Автор: THandle 27.9.2008, 20:32

AlphaBlend, AlphaBlendValue?

Автор: DeViLMaster 27.9.2008, 21:22

Код


AlphaBlend:=true;
AlphaBlendValue:=150;

можеш впихнуть код в форму
прозрачность от 0 до 255

Автор: DeMoNN 28.9.2008, 16:09

спс, про это не знал, но я другое имел в виду-форма станивится прозрачной, а компоненты видны

Автор: XperT 29.9.2008, 16:06

Код


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

Автор: BaD_SeCt0R 29.9.2008, 16:23

DeMoNN, OMG, 51 сообщение на форуме, а поиском так и не научился пользоваться