Форум: "Основная";
Текущий архив: 2004.05.02;
Скачать: [xml.tar.bz2];
Вниз
Плавное появление формы на экране Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2004.05.02;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.041 c
