이렇게 사용하면 어때여..
이 procedure는 입력문자나 숫자을 에디터 창에서 정렬시켜주는 겁니다.
델파이 Personal Edition에 있는 예제소스에서 참고했어여..
잠깐 설명하면..
아마 RichEdit 컴포넌트를 이용한거같애여..
자세한건 소스를 찿아서 실행해 보세여..
procedure TEditForm.AlignClick(Sender: TObject);
begin
Left1.Checked := False;
Right1.Checked := False;
Center1.Checked := False;
with Sender as TMenuItem do Checked := True;
with Editor.Paragraph do
if Left1.Checked then
Alignment := taLeftJustify
else if Right1.Checked then
Alignment := taRightJustify
else if Center1.Checked then
Alignment := taCenter;
end;
이 procedure는 입력문자나 숫자을 에디터 창에서 정렬시켜주는 겁니다.
델파이 Personal Edition에 있는 예제소스에서 참고했어여..
잠깐 설명하면..
아마 RichEdit 컴포넌트를 이용한거같애여..
자세한건 소스를 찿아서 실행해 보세여..
procedure TEditForm.AlignClick(Sender: TObject);
begin
Left1.Checked := False;
Right1.Checked := False;
Center1.Checked := False;
with Sender as TMenuItem do Checked := True;
with Editor.Paragraph do
if Left1.Checked then
Alignment := taLeftJustify
else if Right1.Checked then
Alignment := taRightJustify
else if Center1.Checked then
Alignment := taCenter;
end;