Написание условия для черчения геометрической фигуры в Image

@Osberik · Регистрация: 11.03.2014

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

Здравствуйте.
У меня проблема с условием для рисования прямоугольника т.к у меня две формы и мне нужно привязать черчение геометрической фигуры на Form2 к нажатой кнопке на Form1 и я решил это делать через значок курсора но нечего не вышло.
Помогите решить эту проблему или предложите свой вариант условия к данной задаче.Заранее спасибо .
Это текст программы:

Delphi

procedure TForm2.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin       
if form2.Image1.Cursor=crCross then
x0:=x; y0:=y; x1:=x; y1:=y
Image1.Canvas.Pen.Color:=clBlack
Image1.Canvas.Pen.Mode:=pmNotXOR
Image1.Canvas.Font:=Form1.FontDialog1.Font
Image1.Canvas.Rectangle(x-Form1.Memo1.Width div 2,y-Form1.Memo1.Height div 2,x+Form1.Memo1.Width div 2,y+Form1.Memo1.Height div 2);

@krapotkin · 09.05.2014, 10:56

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

if form2.Image1.Cursor=crCross then

это вообще что ? там пять TImage и только один form2.Image1.Cursor=crCross ??
но это не изменится, можно не проверять.
как задали в Design-time, так с ним ничего и не будет никогда...

кроме того,
вы в курсе что на самом деле у вас написано

Delphi

if form2.Image1.Cursor=crCross then
begin
  x0:=x; 
end;
y0:=y; x1:=x; y1:=y
Image1.Canvas.Pen.Color:=clBlack
Image1.Canvas.Pen.Mode:=pmNotXOR

?

	09.05.2014, 10:56