请问有没有办法把一个窗体变成工程(20分)

  • 主题发起人 主题发起人 elfgirl
  • 开始时间 开始时间
E

elfgirl

Unregistered / Unconfirmed
GUEST, unregistred user!
我想将另一个工程里的一个窗体,比如说unit2.cpp,Form2变成一个工程.也就是独立的可以
运行form2.有没有比拷贝好的办法
 
新建一个工程,将需要的UNIT加载进去,加完以后,在Project-Options-Forms中
移除原有的Form即可
 
我不是想将这个窗体作为子窗体加进去,而是想让这个窗体的
 
请问有没有办法让一个登陆窗口先出现,输入登陆信息后点击确定后,工程窗体(main form)才
出现.我用 Form1=new TForm1(NULL);
Form1->Show();
两个窗体同时出现了,怎样只让登陆窗口先出现,然后主窗体才出现.我用showmodal只有登陆
窗口出现,而主窗体不出现
 
在工程窗体(main form)的.FormShow事件中创建登陆窗口(Login form)然后显示
如果登陆失败,在登陆窗口(Login form)的.FormClose事件中释放工程窗体(main form)
 
用SHOWMODAL就能只显示一个FORM了,你那样做没必要的。当在启动完成后再把那个启动窗体消掉就行了
 
当然,可以,不过可不是像你的题目所说的
参看这个代码:
begin
Application.Initialize;
Application.Title := '你的系统';
hMutex:=CreateMutex(nil,False,'你的系统');
Ret:=GetLastError;
//判断程序是否已经运行
if Ret<>ERROR_ALREADY_EXISTS then
begin
Application.CreateForm(Tdata, data);
forlogin:=Tforlogin.create(application);
//创建登录窗口
try
forlogin.Showmodal;
if forlogin.ModalResult=mrok then
begin
Flashform:=Tflashform.create(application);
//创建启动画面
try
Flashform.show;
Flashform.Refresh;
application.CreateForm(Tformain,formain);
finally
Flashform.Hide;
Flashform.free;
//释放启动画面窗口
end;
end;
finally
forlogin.free;
//释放登录窗口
end;
Application.Run;
end
else
Application.MessageBox('你的系统正在运行!','提示',MB_OK+MB_ICONWARNING);
ReleaseMutex(hMutex);
end;
在工程……options 中移除主窗体即可
 
新建工程,删除他的单元,然后添加你的FORM
 
Image2->Canvas->Pen->Mode=clBlack;
Image2->Canvas->Brush->Color=clWhite;
Image2->Canvas->Rectangle(100,120,110,130);
为什么我的画刷是白色的,画出的矩形框仍是黑色的。我怎样才能得到填充色为白色的矩形
 
登錄FORM這在這里不就得了.
若用戶權限之類沒有通過驗証,Flogin->ShowModal()==mrCancel即可.
#include "Ulogin.h" ;
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->Title = "鞋業管理系統";
Application->CreateForm(__classid(TFmain), &amp;Fmain);
Application->CreateForm(__classid(TDM_ShoeGb), &amp;DM_ShoeGb);
Flogin=new TFlogin(Application);
if (Flogin->ShowModal()==mrCancel)
{
delete Flogin;
return 0;
}
Application->Run();
}
catch (Exception &amp;exception)
{
Application->ShowException(&amp;exception);
}
return 0;
}
 
后退
顶部