https://trans.onionmixer.net/wiki/index.php?action=history&feed=atom&title=StartprogrammingusingObjectPascal%3ATextEditorApplication 2026-05-01T09:17:12Z Revision history for this page on the wiki MediaWiki 1.43.3 https://trans.onionmixer.net/wiki/index.php?title=StartprogrammingusingObjectPascal:TextEditorApplication&diff=373&oldid=prev 2012-07-26T11:21:58Z

<p>SPOP 텍스트편집기프로그램 페이지 추가</p> <p><b>New page</b></p><div>===텍스트 편집기 프로그램===<br /> <br /> 이 예제에서는 간단한 텍스트 편집기를 어떻게 만드는지 보여줄 것입니다.<br /> <br /> 다음 순서를 따릅니다.<br /> <br /> * 새 프로그램을 만들고 메인 폼에 아래 구성요소를 넣습니다.<br /> *# TmainMenu<br /> *# TMemo: 정렬 속성을 alClient로 바꾸고, 스크롤 바 속성을 ssBoth로 바꿉니다.<br /> *# 구성요소 팔레트의 대화상자 페이지에 있는 TOpenDialog와 TSaveDialog<br /> <br /> * &#039;&#039;MainMenu1&#039;&#039; 구성요소를 마우스로 두 번 누르고 &#039;&#039;File&#039;&#039; 메뉴와 &#039;&#039;Open File&#039;&#039;, &#039;&#039;Save File&#039;&#039;, &#039;&#039;Close&#039;&#039; 하위 메뉴 항목을 추가합니다.<br /> <br /> 아래와 같은 폼이 보이게 될 것입니다.<br /> <br /> [[image:lazarus_07.png]]<br /> <br /> * &#039;&#039;Open File&#039;&#039; 항목의 &#039;&#039;OnClick&#039;&#039; 이벤트에 대해 이 코드를 작성합니다.<br /> &lt;syntaxhighlight lang=&quot;pascal&quot;&gt;<br /> if OpenDialog1.Execute then<br /> Memo1.Lines.LoadFromFile(OpenDialog1.FileName);<br /> &lt;/syntaxhighlight&gt;<br /> <br /> * &#039;&#039;Save File&#039;&#039; 항목에 대해 이 코드를 작성합니다.<br /> &lt;syntaxhighlight lang=&quot;pascal&quot;&gt;<br /> if SaveDialog1.Execute then<br /> Memo1.Lines.SaveToFile(SaveDialog1.FileName);<br /> &lt;/syntaxhighlight&gt;<br /> <br /> * &#039;&#039;Close&#039;&#039; 항목에 대해 작성합니다.<br /> &lt;syntaxhighlight lang=&quot;pascal&quot;&gt;<br /> Close;<br /> &lt;/syntaxhighlight&gt;<br /> <br /> 이 텍스트 편집기 프로그램을 실행한 다음, 텍스트를 작성하고 디스크에 저장할 수 있습니다. 또한 &#039;&#039;.pas&#039;&#039; 파일과 같은 기존의 텍스트 파일을 열 수 있습니다.<br /> <br /> [[image:lazarus_08.png]]<br /> [[Category:StartprogrammingusingObjectPascal]]</div>

Onionmixer