Delphi - Show / Hide（代碼里哪里出錯？？我完全照書本練習的。）

frankyhui

<div class="blockcode"><span class="headactions" onclick="copycode($('code0'));">複製內容到剪貼板</span><h5>代碼:</h5><code id="code0">implementation

{$R *.dfm}

procedure TPMEForm.Button1Click(Sender: TObject);
const
IsVisible : Boolean = False;

begin
IsVisible := Not IsVisible;
if IsVisible then
Memo1.Hide
else
Memo1.Show;

end;

end.</code>