自己声明的过程能否引用窗口中的memo1控件？

Question

我自己声明的过程引用了窗口中的控件memo1总是提示memo1没有定义
但是我在TForm1.Button1Click中引用确没有错误？如果我必须得在自己声明的过程中引用，怎么办呢？

Answer 1

uses
  unit1;
   ^^^^如果不在同一个单元，需要引用form1的单元。procedure yourproc();
begin
  form1.memo1.text:=....
  ^^^^加这个，如果你要对TForm1类而不是Form1进行操作，可以用类函数。
class function ...

Answer 2

procedure test(mymemo:Tmemo);
begin
  showmessage(memo1.text);
end;
///////////
test(form1.memo1);

Answer 3

with form1.memo1 do
begin
end;

Answer 4

private
  procedure a;procedure TForm1.a;
begin
  showmessage(memo1.text);
end;

Answer 5

不是同一文件中的要引用相应文件，可以在use下面写，也可以在file下选use uint
然后，form1.memo1……

Answer 6

估计你的问题有两种情况
1过程与窗体不在同一个文件中
那么使用form1.memo1
2 过程与窗体在同一个文件中
则你的过程可能写成独立过程了
引用时同第一种情况
如果不希望使用form1引用则将过程写在form1的声明内部
实现的部分应写成
procedure tform1.myproc;
begin
with memo1 do
...
end;就可以了