Скачать: CL | DM;

Плавное появление формы на экране   Найти похожие ветки 

← →
Zorlag ©   (2004-04-16 19:47) [0]

Уважаемые программисты!!
Помогите пожалуйста.
В моей программе есть необходимость плавного появления главного окна на экране т.е. чтобы сразу после запуска приложения форма прорисовывалась постепенно. Подскажите, как это сделать!

---

← →
ASMiD   (2004-04-16 19:51) [1]

Кладеш на форму таймер и по каждому тику увеличиваеш размеры формы.

---

← →
ASMiD   (2004-04-16 19:51) [2]

Удалено модератором
Примечание: Дубль...

---

← →
ASMiD   (2004-04-16 19:51) [3]

Удалено модератором
Примечание: Дубль...

---

← →
ASMiD   (2004-04-16 19:51) [4]

Виноват - винды тормознули

---

← →
TUser ©   (2004-04-16 19:52) [5]

Кладеш на форму таймер и по каждому тику увеличиваеш размеры региона формы.

---

← →
TUser ©   (2004-04-16 19:53) [6]

Удалено модератором
Примечание: Оффтоп...

---

← →
ASMiD   (2004-04-16 19:56) [7]

Размер или регион - кому что нравится а винды по жизни такие, что не поймеш кто виноват.

---

← →
Rouse_ ©   (2004-04-16 19:59) [8]

Или AlphaBlendValue

---

← →
Rouse_ ©   (2004-04-16 20:02) [9]

И вообще - есть AnimateWindow() ...
Это чтобы не выдумывать велосипед...

---

← →
Zorlag ©   (2004-04-16 20:07) [10]

Нет, мне нужно изменять не размер формы а как раз прозрачность -- но как это правильно реализовать (плавность уменьшения прозрачности) с alphablendvalue -- подскажите, плиз!Т.е. в каком обработчике наращивать величину alphablendvalue -- onshow у формы -- не получается!

---

← →
Rouse_ ©   (2004-04-16 20:12) [11]

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, ExtCtrls;

type
 TForm1 = class(TForm)
   Timer1: TTimer;
   procedure Timer1Timer(Sender: TObject);
   procedure FormCreate(Sender: TObject);
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 AlphaBlendValue := 0;
 AlphaBlend := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   if AlphaBlendValue < 240 then
   AlphaBlendValue := AlphaBlendValue + 20
 else
   tmrUp.Enabled := False;
end;

end.

---

← →
Rouse_ ©   (2004-04-16 20:13) [12]

В смысле Timer1.Enabled := False; а не tmrUp.Enabled

---

← →
Zorlag ©   (2004-04-16 20:17) [13]

Я понял. Большое спасибо, работает!!

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.024 c