把不最小化的窗口的父窗口设置成桌面即可。
Form2 := TForm2.CreateParented(GetDesktopWindow);
Form2 := TForm2.CreateParented(GetDesktopWindow);
解决方案 »
- 怎样让用delphi7 开发的代码自动排列成无序?
- 请问delphi中怎样计算字符串的ASC的累加值
- 读取数据库时,精度发生变化,如何解决?
- 如何能让timage响应得到焦点和失去焦点的事件!
- 这个问题已困惑我几天啦,均没人帮我解决真的好盼望呀!!(ADOStoredProc1.Parameters)
- 对sql server2000表操作时query的requestlive属性怎样设置
- 关于delphi7的XPColorMap的使用方法?
- 快救我....
- 怎样画一个有立体感的围棋棋子?
- 请问如何实现spy++中的类似WINDOW SEARCH的功能
- 关于delphi接口编程。
- 注册表中读取一个字符串值,Name为(默认)时,如何取得其值
Form2 := TForm2.CreateParented(GetDesktopWindow);
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
Form2 := TForm2.CreateParented(GetDesktopWindow());
Form2.Show;
Form2.BringToFront;
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
Form2.Free;
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;end.