Код:
- Код: Выделить всё
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
ExtCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
procedure Image2Click(Sender: TObject);
procedure Image3Click(Sender: TObject);
procedure Image4Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Image2Click(Sender: TObject);
begin
Image4.Left:=800 ;
ShowMessage ('Вы пошли впрао. Поздравляю, вы выйграли!');
end;
procedure TForm1.Image3Click(Sender: TObject);
begin
ShowMessage ('Вы пошли влево. О нет, Вы проиграли!');
end;
procedure TForm1.Image4Click(Sender: TObject);
begin
end;
end.
А сейчас ещё хочу узнать, как узнать где написаны координаты тех картинок, которые я уже вставил в Лазарус.
Приписка: это первый вопрос-просьба из многих.
