Прозрачную форму - delphi 7
| 17.05.2013, 16:31 | |
procedure TForm1.FormCreate(Sender: TObject); begin if AlphaBlend = False then begin AlphaBlendValue := 155; AlphaBlend := True; Application.ProcessMessages; end; end;
| |
|
| |
| Просмотров: 665 | Загрузок: 0 | | |
| Всего комментариев: 0 | |