情況是這樣的，
我的是多表單界面，用dll+exe設計的 ，現在發現 使用熱鍵會 提示 找不到表單，請教各位大神 該怎么辦，該用什么方法？？？
想了一整晚，，，如果是能把當前表單setfoucs或者怎么樣？大神們，你們覺得怎么樣？
uj5u.com熱心網友回復：
跪等
uj5u.com熱心網友回復：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
btn1: TButton;
btn2: TButton;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
begin
btn2.SetFocus;
end;
end.
以上代碼btn2 Enabled := False; 然后設定btn2.SetFocus;就會彈出那樣的錯誤
下面就不會
procedure TForm1.btn1Click(Sender: TObject);
begin
if btn2.CanFocus then
btn2.SetFocus;
end;
具體原因自己體會 說多了 你就懶了
uj5u.com熱心網友回復：
可能是我表達不清楚，，不好意思
procedure Tfrm_mainform.BaseFrmEnter(mForm: TForm);
var
newpage: TRzTabSheet;
index: integer;
aClass: TPersistentClass;
begin
aClass := GetClass(mForm.ClassName);
if aClass = nil then
begin
showmessage('找不到ClassName:' + mForm.ClassName);
Exit;
end;
if not aClass.InheritsFrom(TForm) then
begin
showmessage(mForm.ClassName + '不是一個視窗');
Exit;
end;
newpage := nil;
index := findpage(mform.Caption);
if index = -1 then
begin
newpage := TRZTabSheet.Create(pagecontrol1);
newpage.Caption := mForm.Caption;
newpage.PageControl := pagecontrol1;
pagecontrol1.ActivePage := newpage;
mform := TForm(aClass.NewInstance);
mform.Create(Application);
mform.Parent := Self.pagecontrol1.ActivePage;
mform.ManualDock(newpage);
mform.Align := alclient;
mform.BorderStyle := bsnone;
mform.Show;
mform.SetFocus;
Caption := '您當前在——['+newpage.Caption+']';
end;
end;
function Tfrm_mainform.findpage(scaption: string): integer;
var
i: integer;
isExists: boolean;
begin
isExists := false;
for i := 0 to pagecontrol1.PageCount - 1 do
begin
if pagecontrol1.Pages[i].Caption = scaption then
begin
pagecontrol1.ActivePage := pagecontrol1.Pages[i];
isExists := true;
result := i;
break;
end;
end;
if not isExists then
result := -1;
end;
多頁面打開是 通過 rz控制元件處理的
打開進去是呼叫 常規dll呼叫
設定熱鍵后就出現這樣的 表單找不了，，，
是不是 不能用rz控制元件？
用代碼去 onclick還會彈出來個表單來。。
uj5u.com熱心網友回復：
又多出一個界面，，而是 我們理解為 一個屬性的未顯示
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/72869.html
標籤：VCL組件開發及應用