...
Var
Canvas: TCanvas;
hDC: THandle;
begin
hDC := GetDC(WinControl1.Handle);
Canvas := TCanvas.Create;
Canvas.Handle := hDC;
{Рисуешь}
ReleaseDC(hDC,WinControl1.HAndle);
Canvas.Free;
end;
...
класс на основе TWinControl
необходимо создать производный от TWinControl класс который бы потом прорисовывался по моему усмотрению, при создании экземпляра класса, на экране. подкажите пожалуста как прорисовать его на экране ведь класс TWinControl не содержит Canvas.
Цитата:
Originally posted by udgine
подкажите пожалуста как прорисовать его на экране ведь класс TWinControl не содержит Canvas.
подкажите пожалуста как прорисовать его на экране ведь класс TWinControl не содержит Canvas.
Для создания собственных оконных компонентов в VCL предусмотрен базовый класс TCustomControl.
Цитата:
Originally posted by udgine
необходимо создать производный от TWinControl класс который бы потом прорисовывался по моему усмотрению, при создании экземпляра класса, на экране. подкажите пожалуста как прорисовать его на экране ведь класс TWinControl не содержит Canvas.
необходимо создать производный от TWinControl класс который бы потом прорисовывался по моему усмотрению, при создании экземпляра класса, на экране. подкажите пожалуста как прорисовать его на экране ведь класс TWinControl не содержит Canvas.
Примерно все выглядит так. Надеюсь нигде не ошибся.
Код: