爱
爱上猫的鱼
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TF_CKGL.N92Click(Sender: TObject);
var f: TF_CJMessage;
begin
f:= TF_CJMessage.CreateForm(nil,
DM.Q_SKY,2,Copy((Sender as TMenuItem).Caption,0,
Pos('(',(Sender as TMenuItem).Caption)-1),10);
try
f.ShowModal;
finally
f.Free;
end;
end;
最好每一行都能解释一下
var f: TF_CJMessage;
begin
f:= TF_CJMessage.CreateForm(nil,
DM.Q_SKY,2,Copy((Sender as TMenuItem).Caption,0,
Pos('(',(Sender as TMenuItem).Caption)-1),10);
try
f.ShowModal;
finally
f.Free;
end;
end;
最好每一行都能解释一下