Мерцание, перепрорисовка не всей формы,InvalidateRect...

[Lelya-perinya]

Везде видела примеры с InvalidateRect, где 2 параметр "nil", но мне нужно с помощью этой функции перепрорисовать не всю форму, а часть нее. Когда я пытаюсь задать свой прямоугольник он разрешает запустить программу, но ругается, когда я начинаю двигать фигуру именно на ту строку, где я начинаю задавать прямоугольник...

D.Left:=x1-25;
   D.Top:=y1-25;
   D.Right:=x+25;
   D.Bottom:=y+25;

Пишет при наведении на D - "D=nil", А на D.Left - "Inaccessible value"...
Рисование на форме, InvalidateRect прописано в событии MouseMove.

Так как можно задать прямоугольник PRect?

[ZuBy]

@ добавь перед Д в параметре

[Lelya-perinya]

Параметром оно стать не успевает, программа прерывается на присвоении значения в D.Left... Но я все равно честно попробовала =))

[ZuBy]

Может так д^.лефт := и тд...

[inndim]

Честно говоря не совсем понял в чём проблема, но вот вам простой пример обновления нужной части формы. В примере при нажатии кнопки рисуется квадрат, а при движении мышкой по форме этот квадрат стирается.

var
  Form1: TForm1;
  d:trect;

implementation

{$R *.dfm}

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 InvalidateRect(handle, @d, true);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 d.Left:=100;
 d.top:=100;
 d.Right:=200;
 d.Bottom:=200;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 canvas.Brush.Color:=clnavy;
 canvas.FillRect(d);
end;

[Lelya-perinya]

я просто описывала D как Prect... Сейчас не ругается =))