如何把参数传递传递给另外的窗体(0分)

  • 主题发起人 主题发起人 crossbannyli
  • 开始时间 开始时间
C

crossbannyli

Unregistered / Unconfirmed
GUEST, unregistred user!
如题。
俺是菜鸟,先谢谢了
把FORM1文本筐T1中的数字传递到FORM2中
 
在Form2中先引用Form1
然后在Form2.onshow事件中写:
form2.caption:=from1.t1.text;
运行后,在form2的标题栏就会显示T1中的数字
 
procedure showPrint(str: string);
var
sl: TStringList;
k: Integer;
begin
if not Assigned(PrintForm) then
PrintForm := TPrintForm.Create(Application.MainForm);
with PrintForm do
begin
sl := TStringList.Create;
try
sl.Text := str;
with listview1.Items.Add do
begin
Caption := '等待';
imageindex := 0;
for k := 0 to sl.Count - 1 do
SubItems.Add(sl.Strings[k]);
end;
if spPrintShowModal then
ShowModal
else
begin
if not Visible then Visible := True;
BringToFront;
end;
finally
sl.Free;
end;
end;
end;
 
好,先谢谢chaha, 随风!, 我先揣摩下你门的例子
 
接受答案了.
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部