名前
題名
▼ takiさん > > とにかく、先が開けました。 > > OnClickイベントの他にOnMouseUpイベントも動くようになりました。 > > unit Unit1; > > interface > > uses > Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, > Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls; > > type > TForm1 = class(TForm) > Button1: TButton; > Panel1: TPanel; > Button2: TButton; > Label1: TLabel; > Label2: TLabel; > procedure Button1Click(Sender: TObject); > procedure Button2Click(Sender: TObject); > procedure MyEventClick(Sender: TObject); > procedure MyEventMouseUp(Sender: TObject; Button: TMouseButton; > Shift: TShiftState; X, Y: Integer); > private > { Private 宣言 } > MyButton:TButton; > function GetComponentByName(AName:String):TComponent; > public > { Public 宣言 } > end; > > var > Form1: TForm1; > > implementation > > {$R *.dfm} > > function TForm1.GetComponentByName(AName:String):TComponent; > var > i:integer; > begin > // result := nil; > result := self; // 無かったらForm1 > if Form1.ComponentCount = 0 then exit; > for i := 0 to Form1.ComponentCount - 1 do begin > if Form1.Components[i].Name = AName then begin > result := Form1.Components[i]; > exit; > end; > end; > end; > > procedure TForm1.Button1Click(Sender: TObject); > var > method: TMethod; > begin > MyButton := TButton.Create(Self); > MyButton.Parent := GetComponentByName('Panel1') as TWinControl; > MyButton.Top := 20; > MyButton.Left := 20; > MyButton.Caption := '私のボタン'; > // ---------- > method.Code := Form1.MethodAddress('MyEventClick'); > method.Data := Pointer(Form1); > MyButton.OnClick := TNotifyEvent(method); > > method.Code := Form1.MethodAddress('MyEventMouseUp'); > method.Data := Pointer(Form1); > MyButton.OnMouseUp := TMouseEvent(method); > // ---------- > end; > > procedure TForm1.Button2Click(Sender: TObject); > begin > if MyButton <> nil then FreeAndNil(MyButton); > end; > > // OnClickの場合 > procedure TForm1.MyEventClick(Sender: TObject); > begin > beep; > end; > > // OnMouseUpの場合 > // 引数を TForm1.Button?MouseUp に真似て作成 > procedure TForm1.MyEventMouseUp(Sender: TObject; Button: TMouseButton; > Shift: TShiftState; X, Y: Integer); > begin > showmessage('座標 ' + inttostr(X) + ' ' + inttostr(Y)); > end; > > end.
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link