Dock 我创建两个窗口:form1,form2.怎样在启动的时候 用程序 将form2停泊在form1上? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 ///////////////////////////////////////////工程文件//////////////////////////////////////////program Project1;uses Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin Application.Initialize; Application.CreateForm(TForm1, Form1); form1.Show; Application.Run;end.//////////////////////////////////设置form1//////////////////////////////////unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;type TForm1 = class(TForm) Panel1: TPanel; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);begin Application.CreateForm(TForm2, Form2); form2.ManualDock(form1.Panel1 );end;end.其中form1.Panel1.dockset:=true; //////////////////////////////////////////////////设置form2////////////////////////////from2的dragkind:=dkDock;dragmode:=dmAutomatic;给分吧!! [向ccrun提问]怎么获取Jobs中的进程列表及进程名? 如何共用外观相同的FORM,可以做公共的类吗? vista下自动关机 delphi和vb两个都懂的人请进,做出来的话,加分同时再加现金作为报酬,分另外开题再加 感觉delphi自带的控件太不好用了,做东西狠别扭,大家都什么感觉?? 出错提示看不懂啊。。。是什么原因啊??多谢了 ord函数是什么用的? 一个简单的问题?如果在DELPHI中写存贮过程,并运行他? ■■■有关DELPHI应用程序制作的问题? 线程问题,急! 周末杂谈 请问下怎样批量把WORD转为PDF(能否带上权限)
工程文件
//////////////////////////////////////////
program Project1;uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
form1.Show;
Application.Run;
end.
//////////////////////////////////
设置form1
//////////////////////////////////
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;type
TForm1 = class(TForm)
Panel1: TPanel;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
Application.CreateForm(TForm2, Form2);
form2.ManualDock(form1.Panel1 );
end;end.
其中form1.Panel1.dockset:=true;
//////////////////////////////////////////////////
设置form2
////////////////////////////
from2的
dragkind:=dkDock;
dragmode:=dmAutomatic;
给分吧!!