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

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


Category

  ±è¿µ´ë(2003-03-04 20:18:30, Hit : 5544, Vote : 1394
 µ¨ÆÄÀÌ 3.0¿¡¼­ Çѱۺ¯È¯À» Çϴ¹ý....

> ¾È³çÇϼ¼¿ä....
> ÀÌÀü µ¨ÆÄÀÌ 2.0¿¡¼­´Â IMMÀ̶ó´Â °ÍÀ¸·Î Çѱ۷Π¹Ù²Ù´Â ¿¹Á¦µîÀÌ ¸¹ÀÌ Àִµ¥...
> 3.0¿¡¼­´Â À̰ÍÀÌ ÄÄÆÄÀÏÀÌ ¾ÈµÇ¿ä...
> 2.0¿¡¼­ ÇѱÛ/¿µ¹®À» º¯È¯ÇÒ¼ö ÀÖ´Â ¹æ¹ýÀ» ¾Ë°í ½Í°í¿ä...
> Áö±Ý »óŰ¡ ÇѱۻóÅÂÀÎÁö ¿µ¹®»óÅÂÀÎÁö ¾Ë¼ö ÀÖ´Â ¹æ¹ýÀ» ¾Ë°í ½Í¾î¿ä...
> µ¨ÆÄÀÌ Ãʺ¸°¡...
>

´ÙÀ½ source¸¦ Âü°íÇϽñ¸¿ä ºÎÁ·ÇÑ ºÎºÐÀÌ
ÀÖÀ¸½Ã¸é ¸ÞÀÏÁÖ¼¼¿ä.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Imm, Buttons;  // ImmÀ» Ãß°¡Ç߳׿ä

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    procedure Edit1Enter(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure SetHangeulMode(SetHangeul: Boolean);
    function  GetHangeulMode: Boolean;
  end;

var
  Form1: TForm1;

implementation
{$R *.DFM}

{ÇѱÛ/¿µ¹® º¯È¯ ·çƾ}
procedure TForm1.SetHangeulMode(SetHangeul: Boolean);
var
  tMode : HIMC;
begin
  tMode := ImmGetContext(handle);
  if SetHangeul then  // Çѱ۸ðµå·Î
    ImmSetConversionStatus(tMode, IME_CMODE_HANGEUL,
                                  IME_CMODE_HANGEUL)
  else                // ¿µ¹®¸ðµå·Î
    ImmSetConversionStatus(tMode, IME_CMODE_ALPHANUMERIC,
                                  IME_CMODE_ALPHANUMERIC);
end;

{ÇöÀç ÇѱÛ/¿µ¹® »óÅÂ}
function TForm1.GetHangeulMode: Boolean;
var
  tMode : HIMC;
  Conversion, Sentence: DWORD;
begin
  tMode := ImmGetContext(handle);
  ImmGetConversionStatus(tMode, Conversion, Sentence);
  if Conversion = IME_CMODE_HANGEUL then
    GetHangeulMode := True
  else
    GetHangeulMode := False;
end;

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  // Edit1¿¡ focus°¡ ¿À¸é ÇÑ±Û ¸ðµå·Î
  SetHangeulMode(True);
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  // Edit1¿¡¼­ focus°¡ ¾ø¾îÁö¸é ¿µ¹® ¸ðµå·Î
  SetHangeulMode(False);
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  // ÇöÀç ÇѱÛ/¿µ¹® »óÅ´ ?
  if GetHangeulMode then
    Label1.Caption := 'ÇѱÛ'
  else
    Label1.Caption := '¿µ¹®';
end;

end.





971   [³×Æ®¿÷/ÀÎÅͳÝ] Internet¿¡ ¿¬°áÁßÀÎÁö ¿©ºÎ¸¦ ¾Ë·Á¸é...  ±è¿µ´ë 2003/03/04 5169 1329
  [À©µµ¿ìÁî API] µ¨ÆÄÀÌ 3.0¿¡¼­ Çѱۺ¯È¯À» Çϴ¹ý....  ±è¿µ´ë 2003/03/04 5544 1394
969   [½Ã½ºÅÛ] ¶° ÀÖ´Â ÇÁ·Î±×·¥ Á×À̱â...  ±è¿µ´ë 2003/03/04 5644 1382
968   [½Ã½ºÅÛ] ´Ù¸¥ Application »ý¼º°ú ¼Ò¸ê¿¡ ´ëÇÏ¿©...  ±è¿µ´ë 2003/03/04 4821 1299
967   [À©µµ¿ìÁî API] µµ±¸¸ðÀ½ Bar´Â ¾î¶»°Ô ¸¸µå´ÂÁö...  ±è¿µ´ë 2003/03/04 4692 1325
966   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] StringGridÀÇ Cell¿¡ ÀÔ·Â °ª Á¦ÇÑ ÇÏ±â  ±è¿µ´ë 2003/03/04 5847 1272
965   [µ¥ÀÌÅͺ£À̽º] DBÀÇ BlobÇʵ忡 È­ÀÏÀ» ÀúÀåÇÏ±â  ±è¿µ´ë 2003/03/04 5105 1224
964   [½Ã½ºÅÛ] Windows NT ¿¡¼­ ÇÑ±Û NTÀÎÁö ¿µ¹® NTÀÎÁö ±¸ºÐÇÏ´Â ¹æ¹ý  ±è¿µ´ë 2003/03/04 5123 1327
963   [½Ã½ºÅÛ] ¿ÀÁ÷ ÇϳªÀÇ ÇÁ·Î±×·¥¸¸ ½ÇÇà...  ±è¿µ´ë 2003/03/04 5014 1351
962   [µ¥ÀÌÅͺ£À̽º] TBlobField¿¡ ´ëÇÑ »ç¿ë¹ý  ±è¿µ´ë 2003/03/04 4879 1251
961   [¸ÖƼ¹Ìµð¾î] TMedia Player¿¡¼­ BMPÆÄÀÏ·Î ÀúÀåÇϱâ(È­¸é capture)  ±è¿µ´ë 2003/03/04 4444 1250
960   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] StringGrid¿¡¼­ Enter Key¸¦ Tab Key¿Í °°Àº È¿°ú  ±è¿µ´ë 2003/03/04 5096 1182
959   [µ¥ÀÌÅͺ£À̽º] Stored Procedure ÀÛ¼ºÀ» ¾î¶»°Ô Çϳª  ±è¿µ´ë 2003/03/04 4895 1261
958   [À©µµ¿ìÁî API] ³¯Â¥º¯Çü¿¡ ´ëÇØ¼­...  ±è¿µ´ë 2003/03/04 4795 1214
957   [À©µµ¿ìÁî API] µ¨ÆÄÀÌ¿¡¼­ ½Ã°£À» ±â´Ù¸®´Â ÇÔ¼ö  ±è¿µ´ë 2003/03/04 5860 1349
956   [µ¥ÀÌÅͺ£À̽º] DBGrid¿¡¼­ MultiSelectµÈ°Í ¾Ë¾Æ³»·Á¸é...  ±è¿µ´ë 2003/03/04 5289 1239
955   [À©µµ¿ìÁî API] ¿ÜºÎ ÇÁ·Î±×·¥ÀÇ À©µµ¿ì Å©±â Á¶Àý  ±è¿µ´ë 2003/03/04 4895 1239
954   [À©µµ¿ìÁî API] Ŭ¸³º¸µå·Î º¹»ç  ±è¿µ´ë 2003/03/04 5635 1396
953   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] VB Left$(), Right$(), LTrim$() ...  ±è¿µ´ë 2003/03/04 4801 1191
952   [À©µµ¿ìÁî API] È­¸éĸóÇϱâ Delphi3.0¿¡¼­...  ±è¿µ´ë 2003/03/04 4706 1266
951   [µ¥ÀÌÅͺ£À̽º] ¿¢¼¿ÀڷḦ Àо DB¿¡ UPDATE  ±è¿µ´ë 2003/03/04 5138 1251
950   [½Ã½ºÅÛ] ÇÁ¸°ÅÍ »óŰ¡ ReadyÀÎÁö ¾Æ´ÑÁö °Ë»ç  ±è¿µ´ë 2003/03/04 5773 1667
949   [µ¥ÀÌÅͺ£À̽º] DBGrid ¿¡¼­ ¼±ÅÃµÈ ÇʵåÀÇ Å¸ÀÌÆ²À» ±½°Ô  ±è¿µ´ë 2003/03/04 4717 1291
948   [À©µµ¿ìÁî API] bitmapÀ» JPEG·Î º¯È¯  ±è¿µ´ë 2003/03/04 4921 1313
947   [µ¥ÀÌÅͺ£À̽º] DBGridÀÇ Column, Record ÀÇ À§Ä¡ ÀúÀå/À̵¿  ±è¿µ´ë 2003/03/04 9382 1389
946   [µ¥ÀÌÅͺ£À̽º] ORACLE ³ª SQL Server ¿¡¼­ ·¹ÄÚµå ¹øÈ£  ±è¿µ´ë 2003/03/04 4957 1254
945   [À©µµ¿ìÁî API] Űº¸µåÀÇ ÀÓÀÇŰ ¹ß»ý  ±è¿µ´ë 2003/03/04 5206 1326
944   [µ¥ÀÌÅͺ£À̽º] BDE ¹öÀüÁ¤º¸  ±è¿µ´ë 2003/03/04 3998 1130
943   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¹®ÀÚ¿­ÀÇ ¾Ïȣȭ(Password ó¸®)  ±è¿µ´ë 2003/03/04 4373 1076
942   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ImageÀÇ 90µµ ȸÀü  ±è¿µ´ë 2003/03/04 5099 1160
941   [À©µµ¿ìÁî API] ÆÄÀÏÁ¤º¸(»ý¼º,º¯°æ,Á¢±ÙÀÏÀÚ,¼Ó¼º,Á¾·ù...)  ±è¿µ´ë 2003/03/04 5342 1236
940   [À©µµ¿ìÁî API] À©µµ¿ìÁî Ž»ö±â¿ÍÀÇ ¿¬µ¿  ±è¿µ´ë 2003/03/04 5473 1328
939   [½Ã½ºÅÛ] Àý¾àÇü ¸ð´ÏÅÍÀÇ Äѱâ/²ô±â  ±è¿µ´ë 2003/03/04 4684 1289
938   [½Ã½ºÅÛ] µå¶óÀÌºê Æ÷¸Ë(Format) API ÇÔ¼ö  ±è¿µ´ë 2003/03/04 4715 1278
937   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] virtual keys ¸®½ºÆ®  ±è¿µ´ë 2003/03/04 4138 1182
936   [À©µµ¿ìÁî API] short/long file name º¯È¯  ±è¿µ´ë 2003/03/04 4185 1228
935   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¸Þ´º ¾ÆÀÌÅÛÀÇ µ¿Àû Ãß°¡¿Í ±×¸²³Ö±â  ±è¿µ´ë 2003/03/04 4556 1186
934   [À©µµ¿ìÁî API] ÆÄÀÏÀÇ È®Àå¸íÀ¸·Î ½ÇÇàÈ­ÀÏ ¿¬°á  ±è¿µ´ë 2003/03/04 4970 1316
933   [½Ã½ºÅÛ] CD-ROM ¹® ¿­±â/´Ý±â  ±è¿µ´ë 2003/03/04 4730 1338
932   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] QReport¿¡¼­ Ãâ·ÂµÈ ÀڷḦ TextÈ­ÀÏ·Î ÀúÀå  ±è¿µ´ë 2003/03/04 4403 1217

1 [2][3][4][5][6][7][8][9][10]..[25] [´ÙÀ½ 10°³]
 

Copyright 1999-2019 Zeroboard / skin by zero