::: µ¨ÆÄÀÌ Tip&Trick :::

µ¨ÆÄÀÌ Tip&Trick ¼º°Ý¿¡ ¸ÂÁö ¾Ê´Â ±¤°í,ºñ¹æ,Áú¹®ÀÇ ±ÛÀº Áï½Ã »èÁ¦Çϸç
³»¿ëÀ» º¹»çÇÏ¿© »ç¿ëÇÒ °æ¿ì ¹Ýµå½Ã À̰÷(http://www.howto.pe.kr)À» Ãâó·Î ¸í½ÃÇÏ¿© ÁÖ¼¼¿ä


Category

  ±è¿µ´ë(2003-03-07 09:25:28, Hit : 4181, Vote : 1179
 MemoÀÇ ÀÔ·ÂÇà¼ö Á¦ÇÑÇϱâ

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure Memo1Change(Sender: TObject);
    procedure Memo1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  MAX_LINES = 5; // ÃÖ´ë ÀÔ·ÂÇà¼ö

var
  Form1: TForm1;

implementation
{$R *.DFM}

procedure TForm1.Memo1Change(Sender: TObject);
var
  i: Integer;
begin
  if Memo1.Lines.Count > MAX_LINES then
  begin
    // ¸¶Áö¸·Çà ´ÙÀ½ÀÇ ÇàÀº »èÁ¦ÇØ ¹ö¸°´Ù
    for i := Memo1.Lines.Count-1 downto MAX_LINES do
      Memo1.Lines.Delete(i);
    // Ä¿¼­¸¦ ¸¶Áö¸·ÇàÀ¸·Î À̵¿
    Memo1.SelStart := SendMessage(Memo1.Handle, EM_LINEINDEX, MAX_LINES-1, 0);
  end;
end;

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    // ¸¶Áö¸· Çà¿¡¼­ÀÇ CR/LF ÀÔ·Â ±ÝÁö
    if SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart, 0) = MAX_LINES-1 then
      Key := #0;
  end;
end;

end.





171   [½Ã½ºÅÛ] Thread »ç¿ëÇÏ±â  ±è¿µ´ë 2003/03/07 4260 1160
170   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] C & Pascal µ¥ÀÌÅÍ Å¸ÀÔ ºñ±³  ±è¿µ´ë 2003/03/05 4259 1138
169   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ComboBox ¸¦ °­Á¦·Î µå·Ó½ÃŰ±â  ±è¿µ´ë 2003/03/05 4251 1136
168   [À©µµ¿ìÁî API] µð½ºÅ© ij½¬ÀÇ ÆÄÀÏÀ» µð½ºÅ©·Î ¾²±â  ±è¿µ´ë 2003/03/05 4247 1133
167   [À©µµ¿ìÁî API] »ç¿ëÀÚÁ¤ÀÇ caption(title) bar ¸¸µé±â  ±è¿µ´ë 2003/03/04 4239 1273
166   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Ç¥ÁØ TListBox ¿¡ Radio ¹öư ¿Ã¸®±â  ±è¿µ´ë 2004/07/27 4237 1158
165   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] OnActivate À̺¥Æ® ³»¿¡¼­ Æû È®½ÇÈ÷ ´Ý±â  ±è¿µ´ë 2003/03/07 4237 1089
164   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¼ýÀÚÀÇ ±Ù»çÄ¡ ±¸ÇÏ±â  ±è¿µ´ë 2003/03/07 4234 1133
163   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ÁÖ¾îÁø ¹®ÀÚ¿­¿¡ À߸øµÈ ¼ýÀÚ°ªÀÌ µé¾îÀÖ´ÂÁö °Ë»ç  ±è¿µ´ë 2003/03/04 4224 1217
162   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ·¹Áö½ºÆ®¸®ÀÇ ±âº» RootKey ¹Ù²Ù±â  ±è¿µ´ë 2003/03/05 4222 1278
161   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] TEditÀÇ OnChange¿¡¼­ Text ¹Ù²Ù±â  ±è¿µ´ë 2003/03/04 4221 1220
160   [À©µµ¿ìÁî API] ·¹Áö½ºÆ®¸® Àüü °Ë»öÇÏ±â  ±è¿µ´ë 2003/03/07 4219 1141
159   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¹®ÀÚ¿­ ã¾Æ¼­(Search) ¹Ù²Ù±â(Replace)  ±è¿µ´ë 2003/03/04 4216 1252
158   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] À©µµ¿ìÁî"½ÃÀÛ" ¹öưÀ§¿¡ ±Û¾¾ ¾²±â  ±è¿µ´ë 2004/07/24 4211 1156
157   [À©µµ¿ìÁî API] Űº¸µåÀÇ Scroll Lock Äѱâ/²ô±â  ±è¿µ´ë 2003/03/07 4210 1135
156   [½Ã½ºÅÛ] Boot Drive ã±â  ±è¿µ´ë 2003/03/04 4207 1245
155   [µ¥ÀÌÅͺ£À̽º] µ¿ÀûÀ¸·Î SELECTÀÇ GROUP BY ¹® ¸¸µé±â  ±è¿µ´ë 2003/03/07 4201 946
154   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] FormÀÇ Caption ¿¡¼­ÀÇ Click ¾Ë¾Æ³»±â  ±è¿µ´ë 2003/04/01 4199 1047
153   [¸ÖƼ¹Ìµð¾î] waveÆÄÀÏ ¿¬ÁÖ  ±è¿µ´ë 2003/03/04 4190 1212
152   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ListBox¿¡¼­ ¸¶¿ì½º À̵¿½Ã ¾ÆÀÌÅÛÀ» ÈùÆ®·Î º¸¿©ÁÖ±â  ±è¿µ´ë 2003/03/27 4188 1116
151   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ListBoxÀÇ ItemÀ» ¹öưÀ¸·Î °è¼Ó »èÁ¦ÇÏ±â  ±è¿µ´ë 2003/03/07 4184 1135
  [ÀϹÝ/ÄÄÆ÷³ÍÆ®] MemoÀÇ ÀÔ·ÂÇà¼ö Á¦ÇÑÇÏ±â  ±è¿µ´ë 2003/03/07 4181 1179
149   [½Ã½ºÅÛ] CPU speed ±¸Çϱâ 2  ±è¿µ´ë 2003/03/07 4179 1186
148   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] INI ÆÄÀÏÀÌ ÀúÀåÀ» ¾È ÇØ?  ±è¿µ´ë 2003/03/05 4172 1114
147   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¿¬¼ÓµÈ Űº¸µåÀÇ Å° ¹ß»ý½ÃŰ±â  ±è¿µ´ë 2003/03/07 4171 1129
146   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Ä¿¼­(ij·µ)°¡ line À§¿¡ ÀÖ´ÂÁö °Ë»çÇÏ±â  ±è¿µ´ë 2003/03/07 4170 1103
145   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] FormÀÌ »ý¼ºµÇ¾î ÀÖ´ÂÁö °Ë»çÇÏ±â  ±è¿µ´ë 2003/03/05 4169 1215
144   [À©µµ¿ìÁî API] Menu°¡ openµÇ¾î ÀÖ´ÂÁö °Ë»çÇÏ±â  ±è¿µ´ë 2003/03/04 4168 1277
143   [À©µµ¿ìÁî API] Memo ¿¡ ÀÓÀÇÀÇ tab stops ¼³Á¤ÇÏ±â  ±è¿µ´ë 2003/03/04 4165 1331
142   [µ¥ÀÌÅͺ£À̽º] Å×À̺í,À妽º º¹»çÇÏ±â  ±è¿µ´ë 2003/03/07 4164 1426
141   [µ¥ÀÌÅͺ£À̽º] dBase Å×À̺íÀÇ »èÁ¦µÈ ·¹ÄÚµå º¸±â  ±è¿µ´ë 2003/03/07 4161 1120
140   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] MenuÀÇ ItemÀ» µ¿ÀûÀ¸·Î ¸¸µé±â  ±è¿µ´ë 2003/03/05 4140 1111
139   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] wild card(*,?)¹®ÀÚ¿Í ÀÏÄ¡  ±è¿µ´ë 2003/03/04 4140 1133
138   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ƯÁ¤ÇÑ Æú´õ·Î À̵¿ÇÑ DOS â ¶ç¿ì±â  ±è¿µ´ë 2003/03/07 4131 1136
137   [µ¥ÀÌÅͺ£À̽º] Blob Çʵ忡¼­ ´Ù¸¥ TableÀÇ Blob Çʵå·Î º¹»ç¸¦ ÇÏ·Á¸é...  ±è¿µ´ë 2003/03/05 4130 1097
136   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Hint Ç¥½ÃÀÇ ¼ÓµµÁ¶Àý  ±è¿µ´ë 2003/03/05 4128 1110
135   [µ¥ÀÌÅͺ£À̽º] µ¥ÀÌŸº£À̽º ·Î±×ÀÎ(login) È­¸é ¶ç¿ì±â  ±è¿µ´ë 2003/03/07 4127 1032
134   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Global exception handler ¸¸µé±â  ±è¿µ´ë 2003/03/05 4126 1102
133   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ÆûÀÇ ÇüÅ ¹Ù²Ù±â  ±è¿µ´ë 2003/03/05 4121 1098
132   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Unix-format time À» TDateTime ·Î ¹Ù²Ù±â  ±è¿µ´ë 2003/03/07 4110 1123

[ÀÌÀü 10°³] [1].. 21 [22][23][24][25]
 

Copyright 1999-2023 Zeroboard / skin by zero