F
Fpack
Unregistered / Unconfirmed
GUEST, unregistred user!
声明
Test:TFrame2; (以创建)
function GetFram
ointer;
procedure ShowInfo(Senderointer);
执行
function TFram1.GetFramointer;
Begin
Result := @Test;
end;
procedure TFram1.ShowInfo(Senderointer);
Begin
if Sender <> nil then
with Sender^ do
For I := 0 to Componentcount -1 do
if Components.Tag = 10 then showmessage('asdfasdf');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowInfo(GetFram);
end;
报错
Record,object or class tyer required;
是不是须要转换，如是如何做。不是又如何做。
Test:TFrame2; (以创建)
function GetFram
ointer;procedure ShowInfo(Sender
ointer);执行
function TFram1.GetFram
ointer;Begin
Result := @Test;
end;
procedure TFram1.ShowInfo(Sender
ointer);Begin
if Sender <> nil then
with Sender^ do
For I := 0 to Componentcount -1 do
if Components.Tag = 10 then showmessage('asdfasdf');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowInfo(GetFram);
end;
报错
Record,object or class tyer required;
是不是须要转换，如是如何做。不是又如何做。