delphi請教前輩

Question

我想问下.如果新建一个form2模块,我想通过memo1这个模块跳转到form2模块,该如何写代码...

Answer 1

就像新建一个button1那样,然后点一下,直接转到form2模块..

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure Memo1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.Memo1Click(Sender: TObject);
begin
  Form2:=TForm2.Create(self);
  Form2.ShowModal;
end;end.