虽说只有10分,我也要赚!全给我!
procedure TFrmMainMenu.CheckForm;
var i:integer;
begin
if Screen.FormCount>1 then
begin
for i:=0 to Screen.FormCount-1do
begin
if Screen.Forms.Caption<>Self.Caption then
begin
ShowMessage('請先關閉"'+Screen.Forms.Caption+'"窗口后﹐再關閉系統!');
abort;
end;
end;
end;
end;
