ボタンを右クリックするには？ (ID:43048)

名前

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

本文

皆さん、いろいろとありがとうございます。

基礎が分かっていないというのは本当です。

イベントとか言われてもなにそれとか思います。

igyさんへ
もう自分では、不具合が起こったことは気にしていませんが、一応具体的に
書いてみますね。
最初に
memo1.lines.add('平均＝'+FloatToStr(AVR));

という行があって、
それに
memo1.lines.add('合計＝'+kS);

を付け加えて実行したら、きちんと平均と合計が表示されたんですが、

合計はいらないと思って削除しても平均と合計が表示され続けたんです。

で、このformを「プロジェクトから削除」したら、合計が表示されなくなりました。

これ以外にも、「読み込みエラーが起こった、再起動してください」のようなことも結構起こるんで、一応、再インストールしてみます。

Mr.XRAYさんへ
このbutton1mousedownを追加する前に、このformには2個のmousedownがありました。
おそらく、6年前に作ったものだから、すっかり忘れていましたが。
一つは、RichEdit1MouseDownでこれはダブルクリックをして作ったようです。
もう一つはImage1のOnMouseDownでこれは書いたようです。
HP見させていただいて、ダブルクリックしておけば何の問題も生じなかったように思います。
今後はダブルクリックしますね。

>Image1のOnMouseDownがあって、Button11にOnMouseDownを作ったら
の件ですが、
文字通りに、Image1にonmousedownイベントで
procedure TForm1.OnmouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
を作って、
button1にOnMouseDownイベントで
procedure TForm1.OnmouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
を作るんです。
一つしかできませんよね。
Image1とbutton1で同じ名前のを作ってもエラー表示が出るようにはなっていないんですね。

私が若いころは「３０過ぎたらプログラマーは無理」とか言われましたが、
最近やはり年には勝てんなとか思ってます。

今後もプログラムは続けますので、質問も続くと思いますが、よろしくお願いします。

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

戻る