무지하게 간단하지만 사용하기 나름이겠죠.
기본적으로 TEdit 같은 경우에는 Canvas 속성이 없습니다. 그래서 이미지나 뭔가를 넣고 싶어도
삽질을 하기 마련이거나 다른 컴포넌트를 찾게되는데요...
아주 간단히 처리가 되더군요... 진땀 날정도로..
다음을 응용하면 별별게 다되겠죠~? ^^;
(이미 다들 아시는 팁이면.... )
type
TForm1 = class(TForm)
Edit1: TEdit;
.
.
private
FCanvas: TCanvas;
.
.
.
procedure TForm1.FormCreate(Sender: TObject);
begin
FCanvas := TControlCanvas.Create;
TControlCanvas(FCanvas).Control := Edit1;
end;
procedure TForm1.자기함수...
begin
FCanvas.LineTo(Edit1.Width, Edit1.Height);
end;
이러시면 대충 에디트 박스 안에 라인이 하나 그려집니다.
|