Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c