Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.10.28;
Скачать: CL | DM;

Вниз

чтобы форма появлялась градиентно   Найти похожие ветки 

 
hinst   (2007-10-07 11:01) [0]

3д. Всем.
Подскажите, пожалуйста, компонент для того, чтобы форма появлялась градиентно.(При показе добавляла АльфаБленд с заданым шагом времени и процента, а при скрытии формы убавляла).


 
homm ©   (2007-10-07 11:04) [1]

Тебе нужно добавлять АльфаБленд с заданым шагом времени и процента, а при скрытии убавлять.


 
DVM ©   (2007-10-07 11:36) [2]

procedure TSplashForm.FormShow(Sender: TObject);
begin
  if OSVersion >= OsWin2000 then
    WindowAnimate(handle, 500, AW_BLEND);
end;


 
hinst   (2007-10-07 12:04) [3]

Спасибо. А нет процедуры, чтобы она еще скрывалась прозрачно.


 
DVM ©   (2007-10-07 12:08) [4]

Кстати, забыл сказать, что:

function WindowAnimate(Wnd: HWND; dwTime: DWORD; dwFlags: DWORD): BOOL;
type
 TWndAnimate = function (h: HWND; Time: DWORD; Flags: DWORD): BOOL; stdcall;
var
 WndAnimate: TWndAnimate;
begin
 @WndAnimate := GetProcAddress(GetModuleHandle(PChar("user32.dll")), PChar("AnimateWindow"));
 Result := Assigned(@WndAnimate);
 if Result then
   Result := WndAnimate(Wnd, dwTime, dwFlags);

end;


 
DVM ©   (2007-10-07 12:13) [5]


> Спасибо. А нет процедуры, чтобы она еще скрывалась прозрачно.

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 AnimateWindow(handle, 500, AW_BLEND or AW_HIDE);
end;



Страницы: 1 вся ветка

Текущий архив: 2007.10.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
2-1191571256
r.o.o.t
2007-10-05 12:00
2007.10.28
Тормазит главная форма....


2-1191562040
Штучка
2007-10-05 09:27
2007.10.28
Как зафиксировать столбцы в DBGridEh


15-1191529956
sdubaruhnul
2007-10-05 00:32
2007.10.28
Так кто-нибудь объяснит, почему ветки про спутник закрывают?


1-1187341894
wsv
2007-08-17 13:11
2007.10.28
Поиск минимумов-максимумов.


15-1191493416
OrdJONY
2007-10-04 14:23
2007.10.28
Разработка протокола