procedure Tzast.FormShow(Sender: TObject);
begin
AnimateWindow(Handle,1000,AW_BLEND); // Анимация окна в виде плавного проявления
end;
procedure Tzast.Timer1Timer(Sender: TObject);
begin
Close;
end;
procedure Tzast.FormHide(Sender: TObject);
begin
AnimateWindow(Handle,500,AW_BLEND or AW_HIDE); // Анимация окна в виде плавного ухода
end;
procedure Tzast.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:= caFree;
end;
procedure Tzast.FormCreate(Sender: TObject);
var FormRgn: hRgn;
begin
FormRgn := CreateRoundRectRgn(5, 5, 492, 433, 200, 200); // Создали полигон в виде квадрата с закруглёнными углами
SetWindowRgn(zast.Handle, FormRgn, TRUE); // Установили форму окну по полигону
end;
procedure Tzurnals.FormShow(Sender: TObject);
begin
zast.Left:= screen.Width div 2 - 250;
zast.Top:= screen.Height div 2 - 220;
zast.ShowModal;
end;
procedure Tzurnals.FormClose(Sender: TObject; var Action: TCloseAction);
begin
AnimateWindow(Handle,1000,AW_BLEND or AW_HIDE); // Анимация окна в виде плавного ухода
Action:=caFree; // Действие освобождения ресурсов программы
end;
function AnimateWindow(hwnd: HWND, dwTime: DWord, dwFlags: DWord);
procedure Tzast.FormShow(Sender: TObject);
begin
AnimateWindow(Handle,1000,AW_BLEND); // Анимация окна в виде плавного проявления
end;
procedure Tzast.Timer1Timer(Sender: TObject);
begin
Close;
end;
procedure Tzast.FormHide(Sender: TObject);
begin
AnimateWindow(Handle,500,AW_BLEND or AW_HIDE); // Анимация окна в виде плавного ухода
end;
procedure Tzast.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:= caFree;
end;
procedure Tzast.FormCreate(Sender: TObject);
var FormRgn: hRgn;
begin
FormRgn := CreateRoundRectRgn(5, 5, 492, 433, 200, 200); // Создали полигон в виде квадрата с закруглёнными углами
SetWindowRgn(zast.Handle, FormRgn, TRUE); // Установили форму окну по полигону
end;
procedure Tzurnals.FormShow(Sender: TObject);
begin
zast.Left:= screen.Width div 2 - 250;
zast.Top:= screen.Height div 2 - 220;
zast.ShowModal;
end;
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.