Текущий архив: 2002.11.28;
Скачать: CL | DM;
Вниз
Как добраться до канвы 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]Или у них отдельная канва?
Страницы: 1 вся ветка
Текущий архив: 2002.11.28;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.011 c
