всплывающее окно(в отдельном потоке)

[Virus191288]

здравствуйте!
написал всплывающее окно но в некоторых случаях после его использования прога зависает намертво.... проблема не в окне там вообще кода 3 строки....
решил спросить тут возможно ли написать это всплывающее окно в отдельном потоке и если да может кто то написать? заранее спасибо

[Stilet]

Возможно конечно, но нужно знать четко задание, да и на каком языке писать с применением каких средств...
Так что ТЗ в студию.

[Virus191288]

язык разумеется делфи
вот код моеи формы

unit uformz;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, sLabel, ExtCtrls, jpeg, Buttons, sBitBtn, sButton,
  acPNG;

type
  TFormz = class(TForm)
    Timer1: TTimer;
    Timer2: TTimer;
    Timer3: TTimer;
    Image1: TImage;
    sBitBtn1: TsBitBtn;
    sLabel1: TsLabel;
    sLabelFX1: TsLabelFX;
    Timer4: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Timer3Timer(Sender: TObject);
    procedure sBitBtn1Click(Sender: TObject);
    procedure Timer4Timer(Sender: TObject);


  private
  public
  end;

var
  fFormz: TFormz;

implementation

uses uMain;

{$R *.dfm}

procedure TFormz.Timer1Timer(Sender: TObject);
begin

 if Left>Screen.Width-251
 then begin
 left:=left-10;
 AlphaBlendValue:=AlphaBlendValue+9;
 end else begin
   AlphaBlendValue:=250;
 Timer1.Enabled:=False;
 Timer3.Enabled:=true;
 end;

end;

procedure TFormz.Timer2Timer(Sender: TObject);
begin
 if Left<Screen.Width then begin
 left:=left+10;
 AlphaBlendValue:=AlphaBlendValue-9;
 end else Close;
end;

procedure TFormz.FormClose(Sender: TObject; var Action: TCloseAction);
begin
uMain.nom:=uMain.nom-1;
IF nom=0 then posok:=Screen.Height-40;
Action:=caFree;
end;

procedure TFormz.Timer3Timer(Sender: TObject);
begin
  Timer2.Enabled:=true;
 Timer3.Enabled:=False;
end;

procedure TFormz.sBitBtn1Click(Sender: TObject);
begin
close;
end;

procedure TFormz.Timer4Timer(Sender: TObject);
begin
close;
end;

end.

function TfMain.FormZ(name: string;text: string;const PosX: integer;const PosY: integer): string;
begin
nom:=nom+1;
 FFormz:=TFormz.Create(Application);

 FFormz.top:=posok-FFormz.Height;
 posok:=FFormz.top;
 fFormz.sLabel1.left:=PosX;
 fFormz.sLabel1.top:=PosY;

 text := StringReplace(text, '|', #13#10, [rfReplaceAll]);

 fFormz.Left:=Screen.Width;

 FFormz.sLabel1.Caption:=text;
 FFormz.sLabelFX1.Caption:=name;
 FFormz.Show;
if posok<102 then posok:=Screen.Height-40;

end;

FormZ('название!','текст!',8,20);

чтото в этом духе
примерное описание есть форма на ней картинка при вызове функции создается эта форма(выезжает с боку) висит примерно 5 секунд и заезжает обратно

[Stilet]

Не вижу я никакого тут криминала...
Разве что таймер останавливай в обработчике FormClose принудительно.
Не должно зависать...

[Virus191288]

Stilet я писал о томже в коде вообще нет проблем проблемы появляются при вызове этого окна в определенные моменты..... поэтому и прошу помочь сделать в отдельном потоке...

[Stilet]

Но дружище, отдельный поток только все запутает.
Я не думаю что тебе это поможет...
Не ну чесно если есть вис значит нужно вылавливать причину а не маскировать его.
Если хочешь конечно я тебе пример накину, но это не дело.

[Virus191288]

Stilet так проблема как раз в том что во 1 окна глючат и при вызове лагает вся прога.... во 2 в некоторых случаях например при изменении статуса(неважно юзается в проге) напрочь зависает! думаю все это исправит отдельный поток

[ikot]

Используй для этих целей компонент AdvAlert. Смотри тут:http://delphiexpert.ru/view_download.php?id=62

[Stilet]

Virus191288

Я бы всетки программу на твоем месте пошагово оттестировал.