您好，请教根据窗体上的控件找到该窗体 ？谢谢(20分)

W

wjlsnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-05

• #1

如：
procedure TForm1.Button1Click(Sender: TObject);
var
h : DWord ;
begin
h := TForm(Sender).Handle ;
ShowMessage(TForm(FindControl(h)).Caption) ; //这儿要得到 Form1.Caption ,怎么处理 ？
//不用 Self 等直接找Form1的方式，间接从Button1 来找(Button1.Parent = Form1)
end;

谢谢

 

W

wjlsnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-05

• #2

还有，文本中一个空行该怎样删除 ？
用 StringReplace(s,__,__,[rfReplaceAll]) ; 时，中间的两个参数应该怎么写 ？

谢谢您

 

D

dangbochang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-05

• #3

你遇到的问题是什么？

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-05

• #4

procedure TForm1.Button1Click(Sender: TObject);
var
fm: TForm;
begin
fm := TForm(GetParentForm(TControl(Sender)));
showmessage(fm.Caption);
end;



stringreplace(s, #13#10#13#10, #13#10, [rfReplaceAll]);

 

C

chatop

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-05

• #5

agree

 

W

wjlsnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-05

• #6

谢谢 Another_eYes ,谢谢您

 

D

dangbochang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-05

• #7

很简单：

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s:=Memo1.Text;
Memo2.Text:=StringReplace(s,#10+#13,'',[rfReplaceAll]);
end;