(Resolvido) Alt+Tab Windows 7 e Windows XP (janelas não aparecem no XP

[LucAlucard]

Oi gente tudo bem com vocês? Estão aproveitando bastante as férias escolares? Bom espero que sim ^^

Hoje venho até vocês do Fórum MAIS UMA VEZ para pedir NOVAMENTE a ajuda de vocês..

Seguinte... Uso Windows 7 no trabalho e lá apertando Alt+Tab as janelas que se abrem no Delphi são exibidas! Porém no Windows XP elas não são exibidas por exemplo...

Form.Show;

O form q apareceria iria aparecer também no Alt+Tab porém não é o que acontece no Windows XP.. Alguém tem alguma idéia de como faze-lo aparecer?

[Douglas Soares]

Tente

Form1.ShowModal;

Abraços

[LucAlucard]

Tente

Form1.ShowModal;

Abraços

também não funciona.. alguém tem alguma idéia d como fazer as telas aparecerem no ALT+ TAT Como na imagem a baixo só q supondo que cada janela aberta seja um dos forms no DELPHI

Conseuram entender o que eu queria fazer?? Alguém pode me ajudar?

[LucAlucard]

To quase conseguindo gente... só que preciso fazer funcionar com forms já criados.. alguém me ajuda?

o código ségue a baixo

Primeiramente insira um Edit e um Botão e depois analize o código a baixo: ;D

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var I    : Integer;
    Form : array[0..10] of TForm;
begin
  for I := 0 to StrToInt(Edit1.Text) - 1 do
  begin
  Form[I] := Tform.Create(nil);
  Application := TApplication.Create(Self);
//  Application.Create(Form[I]);
  Form[I].Caption := 'Form nº '+IntToStr(I);
  Form[I].TransparentColor := True;
  Form[I].Show;
  end;
end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key = VK_RETURN then Button1.Click;
end;

end.

Editado Julho 16, 2010 por LucAlucard