Q&A
- 델파이 소스설명좀 부탁드려요.. 제발...
안녕하세요 ^^
직장다니면서 학교를 다니는 학생인데요... 교수님께서 시험을 레포트로 내주셨는데...
델파이를 첨 접해봤는데.. 아무리 봐두 잘 모르겠네요..
무슨 프로그래밍에 대한 주석을 달아서 설명하라구 하셨는데... 무슨소린지두 모릅니다..
이거 회사를 그만두던가 해야지...
조금만 부탁드립니다...그럼 안녕히 계세요.. 꾸벅 ^^
unit editor1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, ToolWin, StdCtrls, Menus, ImgList, ClipBrd;
type
TForm1 = class(TForm)
ImageList1: TImageList;
MainMenu1: TMainMenu;
F1: TMenuItem;
E1: TMenuItem;
N1: TMenuItem;
O1: TMenuItem;
S1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
F2: TMenuItem;
RichEdit1: TRichEdit;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
N8: TMenuItem;
X1: TMenuItem;
StatusBar1: TStatusBar;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
N9: TMenuItem;
PrintDialog1: TPrintDialog;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
FindDialog1: TFindDialog;
procedure X1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure O1Click(Sender: TObject);
procedure S1Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure F2Click(Sender: TObject);
procedure FindDialog1Find(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure RichEdit1SelectionChange(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton7Click(Sender: TObject);
procedure ToolButton8Click(Sender: TObject);
procedure ToolButton9Click(Sender: TObject);
procedure ToolButton10Click(Sender: TObject);
private
My_Start : integer;
procedure Info_Clip;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Info_Clip;
begin
if Clipboard.HasFormat(CF_TEXT) = True then
begin
N4.Enabled := False;
ToolButton7.Enabled := False;
N5.Enabled := False;
ToolButton8.Enabled := False;
N6.Enabled := True;
ToolButton9.Enabled := True;
end
else
begin
N4.Enabled := False;
ToolButton7.Enabled := False;
N5.Enabled := False;
ToolButton8.Enabled := False;
N6.Enabled := False;
ToolButton9.Enabled := False;
end;
end;
procedure TForm1.X1Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Info_Clip;
My_Start := 0;
RichEdit1.Lines.Text :='';
StatusBar1.Panels[1].Text := 'noname01.rtf';
end;
procedure TForm1.N1Click(Sender: TObject);
begin
RichEdit1.Lines.Text :='';
StatusBar1.Panels[1].Text := 'noname01.rtf';
end;
procedure TForm1.O1Click(Sender: TObject);
var
File_Name : String;
begin
if OpenDialog1.Execute then
begin
File_Name := OpenDialog1.FileName;
StatusBar1.Panels[1].Text := File_Name;
RichEdit1.Lines.LoadFromFile(File_Name);
end;
end;
procedure TForm1.S1Click(Sender: TObject);
var
File_Name : String;
begin
File_Name := StatusBar1.Panels[1].Text;
if (RichEdit1.Text = '') then
ShowMessage('입력된 문장이 없으면 저장할 수 없습니다.')
else
RichEdit1.Lines.SaveToFile(File_Name);
end;
procedure TForm1.N9Click(Sender: TObject);
var
File_Name : String;
begin
if SaveDialog1.Execute then
begin
SaveDialog1.Title := '다른이름으로 저장';
File_Name := SaveDialog1.FileName;
end;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
if PrintDialog1.Execute then
RichEdit1.Print(RichEdit1.Text);
end;
procedure TForm1.F2Click(Sender: TObject);
begin
RichEdit1.SelStart := My_Start;
FindDialog1.Execute;
end;
procedure TForm1.FindDialog1Find(Sender: TObject);
var
Len : integer;
Str : string;
begin
Len := Length(FindDialog1.FindText);
Str := FindDialog1.FindText;
RichEdit1.SelStart := RichEdit1.findtext(Str, RichEdit1.SelStart,
length(RichEdit1.Text),[]);
RichEdit1.SelLength := Len;
if RichEdit1.SelStart >= length(RichEdit1.Text) then
begin
ShowMessage('더이상 찾을 자료가 없습니다.');
RichEdit1.SelLength := 0;
My_Start := 0;
end
else My_Start := RichEdit1.SelStart + Len;
FindDialog1.CloseDialog;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
RichEdit1.CutToClipboard;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
RichEdit1.PasteFromClipboard;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
RichEdit1.CopyToClipboard;
end;
procedure TForm1.RichEdit1SelectionChange(Sender: TObject);
begin
if RichEdit1.SelLength > 0 then
begin
N4.Enabled := True;
ToolButton7.Enabled := True;
N5.Enabled := True;
ToolButton8.Enabled := True;
N6.Enabled := False;
ToolButton9.Enabled := False;
end
else
Info_Clip;
end;
procedure TForm1.ToolButton1Click(Sender: TObject);
begin
N1Click(Sender);
end;
procedure TForm1.ToolButton2Click(Sender: TObject);
begin
O1Click(Sender);
end;
procedure TForm1.ToolButton3Click(Sender: TObject);
begin
S1Click(Sender);
end;
procedure TForm1.ToolButton5Click(Sender: TObject);
begin
N3Click(Sender);
end;
procedure TForm1.ToolButton4Click(Sender: TObject);
begin
N9Click(Sender);
end;
procedure TForm1.ToolButton7Click(Sender: TObject);
begin
N4Click(Sender);
end;
procedure TForm1.ToolButton8Click(Sender: TObject);
begin
N5Click(Sender);
end;
procedure TForm1.ToolButton9Click(Sender: TObject);
begin
N6Click(Sender);
end;
procedure TForm1.ToolButton10Click(Sender: TObject);
begin
F2Click(Sender);
end;
end.
직장다니면서 학교를 다니는 학생인데요... 교수님께서 시험을 레포트로 내주셨는데...
델파이를 첨 접해봤는데.. 아무리 봐두 잘 모르겠네요..
무슨 프로그래밍에 대한 주석을 달아서 설명하라구 하셨는데... 무슨소린지두 모릅니다..
이거 회사를 그만두던가 해야지...
조금만 부탁드립니다...그럼 안녕히 계세요.. 꾸벅 ^^
unit editor1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, ToolWin, StdCtrls, Menus, ImgList, ClipBrd;
type
TForm1 = class(TForm)
ImageList1: TImageList;
MainMenu1: TMainMenu;
F1: TMenuItem;
E1: TMenuItem;
N1: TMenuItem;
O1: TMenuItem;
S1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
F2: TMenuItem;
RichEdit1: TRichEdit;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
N8: TMenuItem;
X1: TMenuItem;
StatusBar1: TStatusBar;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
N9: TMenuItem;
PrintDialog1: TPrintDialog;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
FindDialog1: TFindDialog;
procedure X1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure O1Click(Sender: TObject);
procedure S1Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure F2Click(Sender: TObject);
procedure FindDialog1Find(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure RichEdit1SelectionChange(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton7Click(Sender: TObject);
procedure ToolButton8Click(Sender: TObject);
procedure ToolButton9Click(Sender: TObject);
procedure ToolButton10Click(Sender: TObject);
private
My_Start : integer;
procedure Info_Clip;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Info_Clip;
begin
if Clipboard.HasFormat(CF_TEXT) = True then
begin
N4.Enabled := False;
ToolButton7.Enabled := False;
N5.Enabled := False;
ToolButton8.Enabled := False;
N6.Enabled := True;
ToolButton9.Enabled := True;
end
else
begin
N4.Enabled := False;
ToolButton7.Enabled := False;
N5.Enabled := False;
ToolButton8.Enabled := False;
N6.Enabled := False;
ToolButton9.Enabled := False;
end;
end;
procedure TForm1.X1Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Info_Clip;
My_Start := 0;
RichEdit1.Lines.Text :='';
StatusBar1.Panels[1].Text := 'noname01.rtf';
end;
procedure TForm1.N1Click(Sender: TObject);
begin
RichEdit1.Lines.Text :='';
StatusBar1.Panels[1].Text := 'noname01.rtf';
end;
procedure TForm1.O1Click(Sender: TObject);
var
File_Name : String;
begin
if OpenDialog1.Execute then
begin
File_Name := OpenDialog1.FileName;
StatusBar1.Panels[1].Text := File_Name;
RichEdit1.Lines.LoadFromFile(File_Name);
end;
end;
procedure TForm1.S1Click(Sender: TObject);
var
File_Name : String;
begin
File_Name := StatusBar1.Panels[1].Text;
if (RichEdit1.Text = '') then
ShowMessage('입력된 문장이 없으면 저장할 수 없습니다.')
else
RichEdit1.Lines.SaveToFile(File_Name);
end;
procedure TForm1.N9Click(Sender: TObject);
var
File_Name : String;
begin
if SaveDialog1.Execute then
begin
SaveDialog1.Title := '다른이름으로 저장';
File_Name := SaveDialog1.FileName;
end;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
if PrintDialog1.Execute then
RichEdit1.Print(RichEdit1.Text);
end;
procedure TForm1.F2Click(Sender: TObject);
begin
RichEdit1.SelStart := My_Start;
FindDialog1.Execute;
end;
procedure TForm1.FindDialog1Find(Sender: TObject);
var
Len : integer;
Str : string;
begin
Len := Length(FindDialog1.FindText);
Str := FindDialog1.FindText;
RichEdit1.SelStart := RichEdit1.findtext(Str, RichEdit1.SelStart,
length(RichEdit1.Text),[]);
RichEdit1.SelLength := Len;
if RichEdit1.SelStart >= length(RichEdit1.Text) then
begin
ShowMessage('더이상 찾을 자료가 없습니다.');
RichEdit1.SelLength := 0;
My_Start := 0;
end
else My_Start := RichEdit1.SelStart + Len;
FindDialog1.CloseDialog;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
RichEdit1.CutToClipboard;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
RichEdit1.PasteFromClipboard;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
RichEdit1.CopyToClipboard;
end;
procedure TForm1.RichEdit1SelectionChange(Sender: TObject);
begin
if RichEdit1.SelLength > 0 then
begin
N4.Enabled := True;
ToolButton7.Enabled := True;
N5.Enabled := True;
ToolButton8.Enabled := True;
N6.Enabled := False;
ToolButton9.Enabled := False;
end
else
Info_Clip;
end;
procedure TForm1.ToolButton1Click(Sender: TObject);
begin
N1Click(Sender);
end;
procedure TForm1.ToolButton2Click(Sender: TObject);
begin
O1Click(Sender);
end;
procedure TForm1.ToolButton3Click(Sender: TObject);
begin
S1Click(Sender);
end;
procedure TForm1.ToolButton5Click(Sender: TObject);
begin
N3Click(Sender);
end;
procedure TForm1.ToolButton4Click(Sender: TObject);
begin
N9Click(Sender);
end;
procedure TForm1.ToolButton7Click(Sender: TObject);
begin
N4Click(Sender);
end;
procedure TForm1.ToolButton8Click(Sender: TObject);
begin
N5Click(Sender);
end;
procedure TForm1.ToolButton9Click(Sender: TObject);
begin
N6Click(Sender);
end;
procedure TForm1.ToolButton10Click(Sender: TObject);
begin
F2Click(Sender);
end;
end.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 고봉수
- •
- 2001.10.23 00:41
- 1 COMMENTS
- /
- 0 LIKES
-
신희찬•2001.10.27 14:49고봉수 wrote: > 안녕하세요.. 수많은 델파이어 여러분.. > 저는 이제 델파이를 시작할려고 하는 사람입...
-
- 초보
- •
- 2001.10.23 00:34
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2001.10.23 02:43안녕하세요. 최용일입니다. mp_Get_cpp는 폼의 메소드로 선언이 되어 있네요... 당연히 구현하실땐 폼클...
-
초보•2001.10.23 18:24최용일 wrote: > 안녕하세요. 최용일입니다. > > mp_Get_cpp는 폼의 메소드로 선언이 되어 있네요... ...
-
- 델초짜
- •
- 2001.10.22 23:42
- 1 COMMENTS
- /
- 0 LIKES
-
나그네•2001.10.22 23:44델초짜 wrote: > 늘감사드리구여.. > 간단질문하나 여쭙겠습니다. > 몇몇 질문참조했는데 오류가 납니다...
-
- 신호
- •
- 2001.10.22 19:56
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2001.10.23 03:38안녕하세요. 최용일입니다. 델파이 버전간의 함수프로토타입차이같네요.. 아래와 같이 해보세요... ...
-
신호•2001.10.23 17:42내용무
-
- 늘초보
- 2001.10.22 19:38
- 0 COMMENTS
- /
- 0 LIKES
-
- 초자
- 2001.10.22 09:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 인터기초
- •
- 2001.10.22 10:09
- 1 COMMENTS
- /
- 0 LIKES
-
인터기초•2001.10.23 14:02매우 죄송한 심정으로 또한번 부탁을 드리게 되었습니다. 또한 친절한 리플 달아주신것 재삼 감사 드립니...
-
- 인터기초
- •
- 2001.10.22 03:37
- 2 COMMENTS
- /
- 0 LIKES
-
델파이 탐 크르즈•2001.10.23 03:00인터기초 wrote: > procedure TForm1.Button4Click(Sender: TObject); > var vingno: integer; > begin ...
-
인터기초•2001.10.23 14:07그리고 혹시 Query.List; 는 Query.Last; 라고 해야 맞지 않는지요... 많은 도움이 되었습니다. ...
-
- 이홍석
- 2001.10.22 02:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 한심한넘의 부탁
- •
- 2001.10.22 01:54
- 2 COMMENTS
- /
- 0 LIKES
-
김일영•2001.10.22 03:06우선 다음부터는 제목에 내용을 명시해주시고 기타 다른 내용은 가급적 삼가해 주시기 바랍니다. 질문...
-
한심스러놈•2001.10.23 22:21김일영 wrote: 답변 정말 감사드립니다. 그런데 제가 아직 델초보라 잘 이해가 가지안아서여..^^;; 리스...
-
- 골뱅이
- •
- 2001.10.21 11:24
- 2 COMMENTS
- /
- 0 LIKES
-
김일영•2001.10.21 11:28글쎄요... 전 아직 개발에는 Delphi 5를 쓰는데요... DateTimeToUnix라는 함수는 없군요. 아마 Delphi 6...
-
골뱅이•2001.10.22 09:24> > > > > > > > > >
-
- 궁금이
- •
- 2001.10.21 08:34
- 1 COMMENTS
- /
- 0 LIKES
안녕하세요 ^^ 직장다니면서 학교를 다니는 학생인데요... 교수님께서 시험을 레포트로 내주셨는데... 델파이를 첨 접해봤는데.. 아무리 봐두 잘 모르겠네요.. 무슨 프로그래밍에 대한 주석을 달아서 설명하라구 하셨는데... 무슨소린지두...-
탁발승•2001.10.23 00:38이건여....-_______-; 교수님이 아마 레포트내는게 귀찮으셨던거 같은데.... 델파이 5 30일완성이라는 책...
-
- 궁금이
- 2001.10.21 09:13
- 0 COMMENTS
- /
- 0 LIKES
-
- 차승환
- •
- 2001.10.21 04:55
- 3 COMMENTS
- /
- 0 LIKES
-
박상윤•2001.10.23 01:17어떤것을 제어 한다는 이야기인지... 카메라의 줌 ,펜 틸트 를 조정하신다는 이야기인지 아니면 카메라 ...
-
차승환•2001.10.30 00:39카메라을 장착한 상태입니다.여기에 카메라를 좌우로 90도 만큼 움직이려고 합니다.카메를 이용하여 델파이...
-
박상윤•2001.10.30 02:10그러나까.. 카메라의 아리리스를 사용하시는지.. 아님 모터를 구동하시는인 것인지... 둘이 비슷하기는 ...
-
- 송태민
- •
- 2001.10.21 06:34
- 1 COMMENTS
- /
- 0 LIKES
-
김일영•2001.10.21 06:34오로지 voice라는 단어만으로 한델에서 검색을 해봤습니다. Q&A란: http://www.delphi.co.kr/cgi-bin/c...
-
- tobird
- 2001.10.21 04:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이 왕초보
- •
- 2001.10.21 03:25
- 2 COMMENTS
- /
- 0 LIKES
-
류종택•2001.10.21 04:00함수를 만들어서 사용하셔야 합니다.. 다만, 배열의 시작과 끝을 알 수 있는 함수는 있습니다.. From...
-
델파이 왕초보•2001.10.21 11:04친절한 답변 감사드립니다.
-
- oranzi
- •
- 2001.10.21 01:55
- 2 COMMENTS
- /
- 0 LIKES
-
류종택•2001.10.21 03:51같은 이름의 함수들이 겹치는 영역에 있을 때는.. 가까운 넘 부터 호출됩니다.. System.Delete와 같이 ...
-
oranzi•2001.10.23 20:21류종택 wrote: > 같은 이름의 함수들이 겹치는 영역에 있을 때는.. > 가까운 넘 부터 호출됩니다.. > ...
-
- 박정만
- 2001.10.20 22:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 처음
- •
- 2001.10.21 05:32
- 3 COMMENTS
- /
- 0 LIKES
-
김일영•2001.10.21 05:46안녕하세요. Q&A 관리자입니다. 제목만 봐서는 무슨 내용인지 잘 모르겠는데요. 글 내용을 보니 저런 것 ...
-
깨구락지•2001.10.21 05:32배열의 크기를 얻고자 하심인가여? aSize:=length(AAA) 깨굴~ 처음 wrote: > AAA : array[0..4] of S...
-
나두초보~~•2001.10.21 05:33깨구락지 wrote: > 배열의 크기를 얻고자 하심인가여? > aSize:=length(AAA) > > 깨굴~ > 처음 wrote...
교수님이 아마 레포트내는게 귀찮으셨던거 같은데....
델파이 5 30일완성이라는 책의230~247페이지의 에디터 만들기와 동일한거 같네염....
제가 책을 대충봤는데....거기에 있는거 같습니다.....
영진 출판사 꺼구염....
메모장보다는 좀 기능이 많구 워드패드보다는 좀 기능이 적은 겁니다.
info_clip라는 프로시져하나 만들었구.....
기타.....툴바사용해서 툴버튼 기능 넣었구....
메인메뉴컴퍼넌트 사용했구.....등등....-_-;
에궁...중간에 쓰다가 포기입니다......대충적을려구 했는데.....일일이 쓰기두 힘들구...아무래도 님의 숙제니깐...^^; 참고하시구 ....열심히 하셈..........
책한번 찾아보셈....-_-;
궁금이 wrote:
> 안녕하세요 ^^
>
> 직장다니면서 학교를 다니는 학생인데요... 교수님께서 시험을 레포트로 내주셨는데...
>
> 델파이를 첨 접해봤는데.. 아무리 봐두 잘 모르겠네요..
>
> 무슨 프로그래밍에 대한 주석을 달아서 설명하라구 하셨는데... 무슨소린지두 모릅니다..
>
> 이거 회사를 그만두던가 해야지...
>
> 조금만 부탁드립니다...그럼 안녕히 계세요.. 꾸벅 ^^
>
> unit editor1;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> ComCtrls, ToolWin, StdCtrls, Menus, ImgList, ClipBrd;
>
> type
> TForm1 = class(TForm)
> ImageList1: TImageList;
> MainMenu1: TMainMenu;
> F1: TMenuItem;
> E1: TMenuItem;
> N1: TMenuItem;
> O1: TMenuItem;
> S1: TMenuItem;
> N2: TMenuItem;
> N3: TMenuItem;
> N4: TMenuItem;
> N5: TMenuItem;
> N6: TMenuItem;
> N7: TMenuItem;
> F2: TMenuItem;
> RichEdit1: TRichEdit;
> ToolBar1: TToolBar;
> ToolButton1: TToolButton;
> ToolButton2: TToolButton;
> ToolButton3: TToolButton;
> ToolButton4: TToolButton;
> N8: TMenuItem;
> X1: TMenuItem;
> StatusBar1: TStatusBar;
> OpenDialog1: TOpenDialog;
> SaveDialog1: TSaveDialog;
> N9: TMenuItem;
> PrintDialog1: TPrintDialog;
> ToolButton5: TToolButton;
> ToolButton6: TToolButton;
> ToolButton7: TToolButton;
> ToolButton8: TToolButton;
> ToolButton9: TToolButton;
> ToolButton10: TToolButton;
> FindDialog1: TFindDialog;
> procedure X1Click(Sender: TObject);
> procedure FormCreate(Sender: TObject);
> procedure N1Click(Sender: TObject);
> procedure O1Click(Sender: TObject);
> procedure S1Click(Sender: TObject);
> procedure N9Click(Sender: TObject);
> procedure N3Click(Sender: TObject);
> procedure F2Click(Sender: TObject);
> procedure FindDialog1Find(Sender: TObject);
> procedure N4Click(Sender: TObject);
> procedure N6Click(Sender: TObject);
> procedure N5Click(Sender: TObject);
> procedure RichEdit1SelectionChange(Sender: TObject);
> procedure ToolButton1Click(Sender: TObject);
> procedure ToolButton2Click(Sender: TObject);
> procedure ToolButton3Click(Sender: TObject);
> procedure ToolButton5Click(Sender: TObject);
> procedure ToolButton4Click(Sender: TObject);
> procedure ToolButton7Click(Sender: TObject);
> procedure ToolButton8Click(Sender: TObject);
> procedure ToolButton9Click(Sender: TObject);
> procedure ToolButton10Click(Sender: TObject);
> private
//변수 선언
> My_Start : integer;
> procedure Info_Clip;
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
//사용자 프로시져.....클립보드에 들어 있는 내용이 텍스트인지 확인
> procedure TForm1.Info_Clip;
> begin
텍스트이면 n4,n5,n6비활성화
툴버튼7,8,9번 비활성화
> if Clipboard.HasFormat(CF_TEXT) = True then
> begin
>
> N4.Enabled := False;
> ToolButton7.Enabled := False;
>
> N5.Enabled := False;
> ToolButton8.Enabled := False;
>
> N6.Enabled := True;
> ToolButton9.Enabled := True;
> end
> else
> begin
> N4.Enabled := False;
> ToolButton7.Enabled := False;
> N5.Enabled := False;
> ToolButton8.Enabled := False;
> N6.Enabled := False;
> ToolButton9.Enabled := False;
> end;
> end;
x1클릭하면 종료시킴....
> procedure TForm1.X1Click(Sender: TObject);
> begin
> Close;
> end;
>
폼이 실행될때 초기화
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> Info_Clip;
> My_Start := 0;
> RichEdit1.Lines.Text :='';
> StatusBar1.Panels[1].Text := 'noname01.rtf';
> end;
>
에디터화면을 공백으로 초기화
스태투스바에 noname01.rtf로 출력
> procedure TForm1.N1Click(Sender: TObject);
> begin
> RichEdit1.Lines.Text :='';
> StatusBar1.Panels[1].Text := 'noname01.rtf';
> end;
>
>
파일열기 대화상자를 실행..
> procedure TForm1.O1Click(Sender: TObject);
> var
> File_Name : String;
> begin
>
> if OpenDialog1.Execute then
> begin
> File_Name := OpenDialog1.FileName;
> StatusBar1.Panels[1].Text := File_Name;
> RichEdit1.Lines.LoadFromFile(File_Name);
> end;
> end;
>
> procedure TForm1.S1Click(Sender: TObject);
> var
> File_Name : String;
> begin
> File_Name := StatusBar1.Panels[1].Text;
>
> if (RichEdit1.Text = '') then
> ShowMessage('입력된 문장이 없으면 저장할 수 없습니다.')
> else
>
> RichEdit1.Lines.SaveToFile(File_Name);
>
> end;
>
> procedure TForm1.N9Click(Sender: TObject);
> var
> File_Name : String;
> begin
>
> if SaveDialog1.Execute then
> begin
> SaveDialog1.Title := '다른이름으로 저장';
> File_Name := SaveDialog1.FileName;
> end;
>
> end;
>
> procedure TForm1.N3Click(Sender: TObject);
> begin
>
> if PrintDialog1.Execute then
> RichEdit1.Print(RichEdit1.Text);
>
> end;
>
> procedure TForm1.F2Click(Sender: TObject);
> begin
> RichEdit1.SelStart := My_Start;
>
> FindDialog1.Execute;
> end;
>
> procedure TForm1.FindDialog1Find(Sender: TObject);
> var
> Len : integer;
> Str : string;
> begin
> Len := Length(FindDialog1.FindText);
> Str := FindDialog1.FindText;
> RichEdit1.SelStart := RichEdit1.findtext(Str, RichEdit1.SelStart,
> length(RichEdit1.Text),[]);
> RichEdit1.SelLength := Len;
>
> if RichEdit1.SelStart >= length(RichEdit1.Text) then
> begin
> ShowMessage('더이상 찾을 자료가 없습니다.');
> RichEdit1.SelLength := 0;
> My_Start := 0;
> end
> else My_Start := RichEdit1.SelStart + Len;
>
>
> FindDialog1.CloseDialog;
> end;
>
> procedure TForm1.N4Click(Sender: TObject);
> begin
>
> RichEdit1.CutToClipboard;
> end;
>
> procedure TForm1.N6Click(Sender: TObject);
> begin
>
> RichEdit1.PasteFromClipboard;
> end;
>
> procedure TForm1.N5Click(Sender: TObject);
> begin
>
> RichEdit1.CopyToClipboard;
> end;
>
> procedure TForm1.RichEdit1SelectionChange(Sender: TObject);
> begin
> if RichEdit1.SelLength > 0 then
> begin
> N4.Enabled := True;
> ToolButton7.Enabled := True;
> N5.Enabled := True;
> ToolButton8.Enabled := True;
> N6.Enabled := False;
> ToolButton9.Enabled := False;
> end
> else
> Info_Clip;
> end;
>
> procedure TForm1.ToolButton1Click(Sender: TObject);
> begin
>
> N1Click(Sender);
> end;
>
> procedure TForm1.ToolButton2Click(Sender: TObject);
> begin
>
> O1Click(Sender);
> end;
>
> procedure TForm1.ToolButton3Click(Sender: TObject);
> begin
>
> S1Click(Sender);
> end;
>
> procedure TForm1.ToolButton5Click(Sender: TObject);
> begin
>
> N3Click(Sender);
> end;
>
> procedure TForm1.ToolButton4Click(Sender: TObject);
> begin
>
> N9Click(Sender);
> end;
>
> procedure TForm1.ToolButton7Click(Sender: TObject);
> begin
>
> N4Click(Sender);
> end;
>
> procedure TForm1.ToolButton8Click(Sender: TObject);
> begin
>
> N5Click(Sender);
>
> end;
>
> procedure TForm1.ToolButton9Click(Sender: TObject);
> begin
>
> N6Click(Sender);
> end;
>
> procedure TForm1.ToolButton10Click(Sender: TObject);
> begin
>
> F2Click(Sender);
> end;
>
> end.
>
>