procedure TForm1.Button1Click(Sender: TObject);
var
W, H: Integer;
begin
W:=Form1.Canvas.TextWidth(Edit1.Text);
H:=Form1.Canvas.TextHeight(Edit1.Text);
OutputDebugString(Format('가로: %d, 세로: %d', [W, H]));
end;
var
W, H: Integer;
begin
W:=Form1.Canvas.TextWidth(Edit1.Text);
H:=Form1.Canvas.TextHeight(Edit1.Text);
OutputDebugString(Format('가로: %d, 세로: %d', [W, H]));
end;
'Delphi' 카테고리의 다른 글
| [Delphi] bsNone이면서 Resize는 가능한 폼 (0) | 2010.06.08 |
|---|---|
| [Delphi] 윈도우 스타일 문자열로 가져오기 (GWL_STYLE, GWL_EXSTYLE) (0) | 2010.06.08 |
| [Delphi] Hook (WH_GETMESSAGE, WH_CALLWNDPROC) (0) | 2010.06.07 |
| [Delphi] 각 OS별 NewLine 처리 (CR/LF) (0) | 2010.06.07 |
| [Delphi] 실행파일 버전정보 가져오기 (0) | 2010.06.04 |
