Buttonをクリックしておきる動作を1度だけにするには？

解決

---

ButtonをクリックしたらMemoEditにデータを追加して、1度追加されたらそれ以上追加しないようにするにはどうすればいいでしょうか。Buttonには【procedure TForm1.Button1Click(Sender: TObject);
var
  E1,E2 : Integer;
  i : Integer;

begin
  if (TValEdit1.Text ='') or (TValEdit2.Text ='') then
    begin
    ShowMessage('数値が入力されていません');
      if TValEdit1.Text ='' then
         TValEdit1.SetFocus
      else
         TValEdit2.SetFocus;
    end
  else
  begin
    E1 := StrToInt(TValEdit1.Text);
    E2 := StrToInt(TValEdit2.Text);

  for i := E1 to E2 do
    MemoEdit1.Lines.Add(IntToStr(i)) ;
    MemoEdit1.Lines.Add('終了');


  end;】
が記述されています。まだ初心者ですのでおかしいところもあると思いますがよろしくお願いします。

編集    削除

---

はぢめての回答かも＾＾

Button1.Enabled:= false;
{処理}
Button1.Enabled:= true;

過去ログ検索すれば、たくさん出てくると思いますけどね。
初心者同士、がんがりませう。

編集    削除

---

場合によっては、
{処理}
Application.ProcessMessages;
Button1.Enabled:= true;
とするといいみたい。

編集    削除

---

一度追加されたら二度と押さないというのであれば、
Button1.OnClick := nil;
でもできます。
次に押したい時があれば、
Button1.OnClick := Button1Click;
とすれば元に戻せます。

編集    削除

---

ありがとうございました。がんばってみます。

編集    削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。