Практическая в Delphi 7

[min@y™]

Автор, ты вкуда пропал?

[savitskiykb]

Сообщение от min@y™

который выполнит.
за копеечку.
Я прочитал твоё сообщение, которое заблочил мой антиспам-бот.

Ну или так.

Сообщение от Stilet

Поможет чем?
Ты говоришь:
Так чем помочь-то?

Я имел ввиду, что есть образец примерного кода.
А мне надо такой код самому написать, что сделать я не могу.
Вот и прошу написать мне такой код к нужным заданиям, по образцу.

[pu4koff]

Там надо всего-то создать новый проект, с панели инструментов на форму кинуть два TShape и два TLabel. У TShape добавить обработчики события OnMouseDown. У одного в теле обработчика написать:

label1.caption := 'Ky-Ky';
label2.caption := '';

у второго:

label2.caption := 'Ky-Ky-pi-Ky';
label1.caption := '';

Вот и всё.

[Stilet]

Я имел ввиду, что есть образец примерного кода.
А мне надо такой код самому написать, что сделать я не могу.
Вот и прошу написать мне такой код к нужным заданиям, по образцу.

Тю... Всего-то... Лови:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type

  { TForm1 }

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure FormPaint(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

// Опишем переменки координат фигур
var asquare,acircle:TPoint; radius:integer;
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
 // Зададим им значеия, расположив фигуры на форме
  asquare.x:=100; asquare.y:=300;
  acircle.x:=400; acircle.y:=200;
  radius:=50;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // Опишем проверку пападания в фигуру курсором мышки
  // И если мышка попала в ту или иную фигуру выведем сообщение
  if sqrt(sqr(x-acircle.x)+sqr(y-acircle.y))<=radius then ShowMessage('Привет') else
    if
     (x>=(asquare.x-radius)) and (x<=(asquare.x+radius)) and
     (y>=(asquare.y-radius)) and (y<=(asquare.y+radius))
    then Caption:=ShowMessage('Другая надпись') else
      Caption:='';
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  //Тоже как пример
  if sqrt(sqr(x-acircle.x)+sqr(y-acircle.y))<=radius then Caption:='В кругу' else
    if
     (x>=(asquare.x-radius)) and (x<=(asquare.x+radius)) and
     (y>=(asquare.y-radius)) and (y<=(asquare.y+radius))
    then Caption:='В квадрате' else
      Caption:='';
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  //Нарисуем фигуры по заданным координатам
 with Canvas do begin
   Brush.Color:=clRed;
    Ellipse(acircle.x-radius,acircle.y-radius,acircle.x+radius,acircle.y+radius);
   Brush.Color:=clBlue;
    Rectangle(asquare.x-radius,asquare.y-radius,asquare.x+radius,asquare.y+radius);
 end;
end;

end.

[min@y™]

чем тебя мой пример не устроил?

[Stilet]

чем тебя мой пример не устроил?

Меня??? Ничего не имею против )
Я просто предложил свой. Твой не смотрел.

[min@y™]

Меня???

нет. автора.

[savitskiykb]

Спасибо всем)

[min@y™]

Спасибо всем)

ты заходи, если что