この発言は
#01053　兵藤 隆志       さんのマウスドラッグでクロックメニュー
に対するコメントです



続きです。<m(_._)m>

メインのソースには

▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼

procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: 
TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Edit1.Text := JWW_MouseDown(Button,X,Y);
end;

procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState;
 X,
  Y: Integer);
begin
  Edit1.Text := JWW_MouseMove(Shift,X,Y);
end;

procedure TForm1.PaintBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Edit1.Text = JWW_MouseUp(Button.X,Y) then
    begin
      Edit2.Text := JWW_MouseUp(Button,X,Y);
      Edit1.Text := '';
    end;
end;

▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲

等とすると使えます。Edit1.Text に代入しているのはたとえば選択しよう
とするクロックコマンドをビジュアルに確認するためのソースなりを書き
加えたら・・・と思うのですが、そこまでは現状思いつきません。(;o;)


                          YRB03356 居残り君 こと 兵藤 隆志 

Original document by 兵藤 隆志       氏 ID:(YRB03356)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。