Problem: Selecting an empty string in TComboBox component will cause Access Violation on some systems. See details in Quality Central report #2246.Description: On some systems (Windows 2000 SP3) it will cause Access Violation in ntdll.dll for an empty string item.The patch fixes it for both standalone executables or applications compiled with runtime packages. To use it just add D7ComboBoxStringsGetPatch.pas unit to the project.Updated for using with Debug DCUs. Thanks to Pavel Rogulin.
下载TComboBox patch for Delphi 7,然后把D7ComboBoxStringsGetPatch.pas加到你的项目中即可.是不是指直接将:program MG2008;uses
Forms,
D7ComboBoxStringsGetPatch in 'D7ComboBoxStringsGetPatch.pas',
DM in 'DM.pas' {DataModule1: TDataModule};{$R *.res}begin
Application.Initialize;
frmlogin:=TfrmLogin.Create(application);
frmlogin.ShowModal;
if frmlogin.ModalResult=1 then
begin
frmlogin.close;
Application.CreateForm(TDataModule1, DataModule1);
Application.CreateForm(TfrmMain, frmMain);
end;
Application.Run;end.是不是上面这样加入就可以了?其它窗体还要不要调用什么?
下载TComboBox patch for Delphi 7,然后把D7ComboBoxStringsGetPatch.pas加到你的项目中即可.是不是指直接将:program MG2008;uses
Forms,
D7ComboBoxStringsGetPatch in 'D7ComboBoxStringsGetPatch.pas',
DM in 'DM.pas' {DataModule1: TDataModule};{$R *.res}begin
Application.Initialize;
frmlogin:=TfrmLogin.Create(application);
frmlogin.ShowModal;
if frmlogin.ModalResult=1 then
begin
frmlogin.close;
Application.CreateForm(TDataModule1, DataModule1);
Application.CreateForm(TfrmMain, frmMain);
end;
Application.Run;end.是不是上面这样加入就可以了?其它窗体还要不要调用什么?
project
add project
这样在工程文件里自动添加上了,其他窗体具体要不要调用看你需要不需要了如果不需要里面的过程或函数就不需要调用 了