сделать форму активной

[Pein95]

У меня форма сворачиваетса в трей:

  procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin
   TrayIcon1.Visible := True;
  Application.MainForm.Hide;


end;

потом я хочу развернуть её:

procedure TForm1.TrayIcon1Click(Sender: TObject);
begin
  TrayIcon1.Visible := False;
  Application.MainForm.Show;


end;

Но тут появляетса проблема: окно программы показываетса за активным окном на рабочем столе, как сделать так, чтоб окно моей программы было активным?

[kangreon]

Попробуйте добавить после вызова метода Show

SetForegroundWindow(handle)

Где handle указывается окна, которое необходимо поместить на передний план.

[Pein95]

не помогло

[Stilet]

Application.BringToFront;

Радикальное решение:

procedure TForm1.TrayIcon1Click(Sender: TObject);
begin
  TrayIcon1.Visible := False;
  Application.MainForm.Show;
 FormStyle:=fsStayOnTop;
 FormStyle:=fsNormal;
end;

[volvo877]

Pein95,

  TrayIcon1.Visible := False;
  Application.Restore;
  Application.BringToFront;

должно отработать

[BparHapoga]

Так вроде бы у формы есть свойство "поверх всех окон".

[Pein95]

volvo877спасибо помогли)
Но вот новая проблема: после того как я свернул програму в трей, потом развернул и опять хочу её свернуть она не сворачиваетса...
вот исходник:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,DateUtils, AppEvnts,REgistry,IniFiles;

type
  TForm1 = class(TForm)
    TrayIcon1: TTrayIcon;
    ApplicationEvents1: TApplicationEvents;
    CheckBox1: TCheckBox;
    Label1: TLabel;
    Edit1: TEdit;
    Timer1: TTimer;

    procedure TrayIcon1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ApplicationEvents1Minimize(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);




  private
    procedure AppIdle(Sender: TObject; var Done: Boolean);


    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  IniFile:Tinifile;
  Reg:Tregistry;
  path:string;

implementation

{$R *.dfm}

procedure TForm1.AppIdle(Sender: TObject; var Done: Boolean);
var
bmp: TBitmap;
DC: HDC;
str:string;
begin
  if GetAsyncKeyState(VK_SNAPSHOT) <> 0 then
  begin
    bmp:=TBitmap.Create;

    bmp.Height:=Screen.Height;
    bmp.Width:=Screen.Width;

    DC:=GetDC(0);

    bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
    DC, 0, 0, SRCCOPY);
    Str := FormatDateTime('hh_mm_ss', GetTime);

    bmp.SaveToFile(path+datetostr(date)+str+'.png');

    ReleaseDC(0, DC);

    bmp.Free;
  end;
  Done := True;
end;


procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin


   TrayIcon1.Visible := True;

   Application.MainForm.Hide;

end;



procedure TForm1.Edit1Change(Sender: TObject);
begin
   path:=edit1.Text;

end;

procedure TForm1.FormCreate(Sender: TObject);
var
s:string;
b:boolean;
begin


  IniFile:=TiniFile.Create(extractfilepath(Application.ExeName)+'Ini.ini');
  b:=Inifile.ReadBool('Autorun','bool',false);
  if b = true then
    checkbox1.Checked:=true
  else
    checkbox1.Checked:=false;
  edit1.Text:=IniFile.ReadString('path','path','C:/');
  //Application.OnIdle := AppIdle;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Reg := TRegistry.Create();
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',false);

 if CheckBox1.Checked = true then
 begin
    IniFile.WriteBool('Autorun','bool',true);
    if Reg.ValueExists(ExtractFileName(Application.ExeName))=false then
     Reg.WriteString(ExtractFileName(Application.ExeName),extractfilepath(Application.ExeName)+Application.ExeName);

 end
 else
 begin
    IniFile.WriteBool('Autorun','bool',false);
    Reg.DeleteValue(ExtractFileName(Application.ExeName));
 end;
 IniFile.WriteString('path','path',path);
 IniFile.Free;

end;



procedure TForm1.Timer1Timer(Sender: TObject);
var
bmp: TBitmap;
DC: HDC;
str:string;
done:boolean;
begin
  if GetAsyncKeyState(VK_SNAPSHOT) <> 0 then
  begin
    bmp:=TBitmap.Create;

    bmp.Height:=Screen.Height;
    bmp.Width:=Screen.Width;

    DC:=GetDC(0);

    bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
    DC, 0, 0, SRCCOPY);
    Str := FormatDateTime('hh_mm_ss', GetTime);

    bmp.SaveToFile(path+datetostr(date)+str+'.png');

    ReleaseDC(0, DC);

    bmp.Free;
  end;
  Done := True;

end;

procedure TForm1.TrayIcon1Click(Sender: TObject);
begin
  TrayIcon1.Visible := False;
  Application.Restore;
  Application.BringToFront;

end;




end.