Текущий архив: 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.015 c
