Как добраться до канвы memo и richedit?

← →
BOBBY © (2002-11-16 16:07) [0]

Надо порисовать на них немного. :)

← →
TTCustomDelphiMaster © (2002-11-16 17:17) [1]

procedure TForm1.Button1Click(Sender: TObject);
var
cv: TCanvas;
begin
cv := TCanvas.Create;
cv.Handle := GetDC(Memo1.Handle);
cv.DrawFocusRect(Rect(10, 10, 30, 30));
ReleaseDC(Memo1.Handle, cv.Handle);
cv.Free;
end;

← →
bobby © (2002-11-16 17:40) [2]

Спасибо!

← →
bobby © (2002-11-16 23:21) [3]

Жаль, что это не срабатывает на beweledges
Можно это решить?

← →
bibby (2002-11-17 13:41) [4]

Или у них отдельная канва?

Как добраться до канвы memo и richedit? Найти похожие ветки