Не работает GDI функция Rectangl()

[Don Karleone]

есть глобальная переменная:

var
  GET_DC: HDC;

и обработчики:

procedure TForm1.FormCreate(Sender: TObject);
begin
  GET_DC:=Form1.Canvas.Handle;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Rectangle(GET_DC, 0, 0, 50, 50);
end;

но при нажатии кнопки ничего на форме не прорисовывается. ???

[Прик]

procedure TForm1.FormCreate(Sender: TObject);
begin
  GET_DC := GetDc(Handle);
end;

или без переменной GET_DC

procedure TForm1.Button1Click(Sender: TObject);
begin
  Rectangle(Canvas.Handle, 0, 0, 50, 50);
end;

[Пепел Феникса]

дело в том что форма перерисовывается по новой, и в итоге ваш прямоугольник стирается.
есть событие OnPaint.

[Don Karleone]

Сообщение от Пепел Феникса

дело в том что форма перерисовывается по новой, и в итоге ваш прямоугольник стирается.
есть событие OnPaint.

прописываю Rectangle(GET_DC, 0, 0, 50, 50) в обработчике OnPaint формы. Все равно ничего не происходит.
Почему Rectangle(Canvas.Handle, 0, 0, 50, 50) работает а через переменную GET_DC нет?

[chertovich]

Почему-то в разный момент времени, Canvas.Handle содержит разное значение. Поэтому и не работает код.
А чем вас не устаивает

Rectangle(Canvas.Handle, 0, 0, 50, 50);

?

[Don Karleone]

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

Почему-то в разный момент времени, Canvas.Handle содержит разное значение. Поэтому и не работает код.
А чем вас не устаивает

Rectangle(Canvas.Handle, 0, 0, 50, 50);

?

просто хочется понять, почему так происходит. Видимо надо покопатья в недрах класса TCanvas и, наверное, TForm тоже.

[chertovich]

Сообщение от Don Karleone

просто хочется понять, почему так происходит. Видимо надо покопатья в недрах класса TCanvas и, наверное, TForm тоже.

Очень здравая мысль, с неё и надо было начинать. Кстати, дружите еще и с отладчиком, часто помогает, по крайней мере морально