Появление картинки при нажатии кнопки

@anhelinamar · Регистрация: 01.11.2014

Author24 — интернет-сервис помощи студентам

У меня движется по форме кнопка. Как сделать, чтобы при нажатии на эту кнопу, у меня появилась картинка?

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Timer1Timer(Sender: TObject);
 var
  i:integer;
begin
    randomize;
    i:=random(Form1.Width-Button1.width-2);
    Button1.left:=i;
    i:=random(Form1.Height-Button1.height-2);
    Button1.top:=i;
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   Timer1.Enabled:=not Timer1.Enabled;
 
end;
 
end.

quwy · 12.11.2014, 12:54

Не по теме:

anhelinamar, никто не отвечает, потому что всем лень учить вас таким элементарным вещам, описанным в любой книжонке по основам Delphi.

quwy
	12.11.2014, 12:54 Появление картинки при нажатии кнопки #2
	Не по теме: anhelinamar, никто не отвечает, потому что всем лень учить вас таким элементарным вещам, описанным в любой книжонке по основам Delphi. 0