// Project1.dpr
program Project1;    uses
  Forms,
  Windows,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3};    {$R *.RES}    begin
  Application.Initialize;      Application.ShowMainForm := FALSE;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);      Application.Run;
end.
/////////////////////////////////////////////////////////////////////    // Unit1.pas
unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Unit2, Unit3, StdCtrls, ExtCtrls;    type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}    procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (Assigned(Form2)) and (Assigned(Form3)) then
  begin
    Form2.Visible := TRUE;
    Form3.Visible := TRUE;
    Timer1.Enabled := FALSE;
  end;
end;    procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 100;
  Timer1.Enabled := TRUE;
end;    end.    /////////////////////////////////////////////////////////////////////
// Unit2.pas
unit Unit2;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;    type
  TForm2 = class(TForm)
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }        procedure CreateParams(var Params: TCreateParams); override;
  end;    var
  Form2: TForm2;    implementation    {$R *.DFM}    procedure TForm2.CreateParams(var Params: TCreateParams);
begin
  Inherited;      Params.ExStyle := Params.ExStyle   WS_EX_APPWINDOW;
  Params.Caption := 'This is Form2!!';
end;    procedure TForm2.FormActivate(Sender: TObject);
begin
  ShowWindow(Application.Handle, SW_HIDE);
end;    end.    /////////////////////////////////////////////////////////////////////
// Uni3.pas    unit Unit3;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;    type
  TForm3 = class(TForm)
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }        procedure CreateParams(var Params: TCreateParams); override;
  end;    var
  Form3: TForm3;    implementation    {$R *.DFM}    procedure TForm3.CreateParams(var Params: TCreateParams);
begin
  Inherited;      Params.ExStyle := Params.ExStyle   WS_EX_APPWINDOW;
  Params.Caption := 'This is Form3!!';
end;    procedure TForm3.FormActivate(Sender: TObject);
begin
  ShowWindow(Application.Handle, SW_HIDE);
end;    end.
/////////////////////////////////////////////////////////////////////

var
  MyWindowClass: TWndClass = (
    style: 0;
    lpfnWndProc: @DefWindowProc;
    cbClsExtra: 0;
    cbWndExtra: 0;
    hInstance: 0;
    hIcon: 0;
    hCursor: 0;
    hbrBackground: 0;
    lpszMenuName: nil;
    lpszClassName: 'Test');    procedure TForm1.Button1Click(Sender: TObject);
var
  FHandle:THandle;
begin
  Windows.RegisterClass(MyWindowClass);
  FHandle := CreateWindow(MyWindowClass.lpszClassName,'23213',
    WS_POPUP or WS_CAPTION or WS_CLIPSIBLINGS or WS_Visible or WS_SYSMENU
    or WS_MINIMIZEBOX,
    GetSystemMetrics(SM_CXSCREEN) div 2,
    GetSystemMetrics(SM_CYSCREEN) div 2,
    0, 0, 0, 0, HInstance, nil);
end;

引言: 謝謝版主及前輩的解答,試了版主及前輩的例子,都可以在視窗工作列上看到form名稱,不過還有一個問題是: zard前輩的例子可以在視窗工作列上點選form的名稱,其對應的form就可以得到focus,但如果直接點選form,工作列上相對應的位置無法得到focus, 是否可以點選form時,工作列上相對應的位置得到focus? wameng版主的方法僅能顯示,無法有相對focus的功能?有請前輩及版主再 行幫忙. 謝謝 sam上

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
  Inherited;      //加入這行
  Params.WndParent := 0;      Params.ExStyle := Params.ExStyle   WS_EX_APPWINDOW;
  Params.Caption := 'This is Form2!!';
end;    procedure TForm3.CreateParams(var Params: TCreateParams);
begin
  Inherited;      //加入這行
  Params.WndParent := 0;      Params.ExStyle := Params.ExStyle   WS_EX_APPWINDOW;
  Params.Caption := 'This is Form3!!';
end;    

引言: 試了前輩的方法可以了,謝謝 但是還有一個問題 將form1改成MDIForm.form2,form3改成MDIchild時又不行 還請前輩幫忙 sam上

引言: