- 687 名前：デフォルトの名無しさん mailto:sage [2010/05/19(水) 03:56:58 ]
- >もしくは質問者自身何が何だか分からない質問を
>勇気を持って書き込むスレッドです。
>Delphi使いが優しくコメントを返しますが
トランプの裏向きの画像は手に入れているとして。
フォームに CardImage という名前の TImage を作成。
Picture プロパティに画像を設定。
Visible プロパティを False に。
*クリックしたら
From の OnMouseDown イベントメソッドを作成
*位置を決めて
引数の X と Y を使う。
* 画像ファイルを表示
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
I : TImage;
begin
I := TImage.Create(self);
I.Parent := self;
I.Picture.Assign(Image1.Picture);
I.Width := Image1.Width;
I.Height:= Image1.Height;
I.Left := X;
I.Top := Y;
end;
|
 |
