Рисование на TRadioGroup через его Handle.

← →
Дельфятник (2002-08-20 11:28) [0]

Мне тут понадобилось порисовать на TRadioGroup, но свойства Canvas у TRadioGroup нет, и у объекта (RadioGroup.Controls[0] as TRadioButton) свойства Canvas тоже нет. Но рисовать хочется, поэтому беру TRadioGroup.Handle, а куда его подать - забыл. Как называется процедура рисования, использующая Handle объекта? Нужно что-то типа Canvas.Draw(Rect.Left,Rect.Top,BitMap).

← →
Skier © (2002-08-20 11:41) [1]

>Дельфятник

Примерно так :

procedure TForm1.Button2Click(Sender: TObject); procedure DrawOnRadioGroup(const ARadioGroup : TRadioGroup); var ACanvas : TCanvas; ADC : HDC; begin if ARadioGroup = nil then Exit; ACanvas := TCanvas.Create; ADC := GetDC(ARadioGroup.Handle); try ACanvas.Handle := ADC; ACanvas.Rectangle(10, 10, 20, 20); //заменяешь на свой код... finally ReleaseDC(ARadioGroup.Handle, ADC); ACanvas.Free; end; //try end; //DrawOnRadioGroup begin DrawOnRadioGroup(RadioGroup1); end;

← →
Дельфятник (2002-08-20 11:57) [2]

Огромное спасибо!

Рисование на TRadioGroup через его Handle. Найти похожие ветки