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

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


Category

  ±¸Ã¢¹Î(2003-03-14 12:17:09, Hit : 7770, Vote : 1352
 http://www.delphi.pe.kr
 ¾²·¹µå ³»¿¡¼­ ÆûÀ» »ý¼ºÇغ¸ÀÚ

[ÆÁ]¾²·¹µå ³»¿¡¼­ ÆûÀ» »ý¼ºÇغ¸ÀÚ

//¾È³çÇϼ¼¿ä~ ±¸Ã¢¹ÎÀÔ´Ï´Ù.

//º°·ç ¾²ÀÏÀÏÀº ¾ø°Ú³×¿©..¤»¤»

//¿ä·¸°Ô ÇÒ¼öµµ Àִٴ°ŠÂü°í·Î¸¸ Çϼ¼¿©~

//±×·³~ Áñ°Å¿î ÇÁ·Î±×·¡¹Ö ÇϽñæ~~



type
  TDlgThread = class(TThread)
  private
  public
    Dlg: TDlgForm; // second form
    procedure Execute; override;
    constructor Create(hMainWin: THandle; ...); // handle of mainform
and another any personal parameters
  end;

const WM_USERDLG = WM_USER + 10;

type TMainForm = class(TForm)
       ....
     private
       procedure WMUserDlg(var Msg: TMessage); message WM_USERDLG; event
handler
       ....
     end;

var DlgThread: TDlgThread;


implementation

constructor TDlgThread.Create(hMainWin: THandler; ...);
begin
  inherited Create(True); // wait of resume command
  FreeOnTerminate:=True;
  if not Assigned(Dlg) then
     Dlg:=TDlgForm.CreateParented(hMainWin);
  with Dlg do
  begin
     ...  // to give over parameters
  end;
end;

procedure TDlgThread.Execute;
var Erg: Integer;
begin
try
  Erg:=Dlg.ShowModal; // second form
  PostMessage(Dlg.ParentWindow,WM_USERDLG,Erg,0); // return signal to
mainform after closed
                                                  // the secound form,
  // with self defined message
finally
  Dlg.Release;  // clear memory
  Dlg:=nil;
end;
end;


procedure TMainForm.Button1Click(Sender as TObject);
begin

  if Assigned(Dlg) then  // Test
     begin
       ShowMessage('Dialog is already running');
       exit;
     end;

  DlgThread:=TDlgThread.Create(Handle,...); // create thread
  DlgThread.Resume; // start thread
end;

procedure TMainForm.WMUserDlg(var Msg: TMessage);
begin
  ShowMessage(format('Second form closed with return code
%d',[Msg.LParam]);
end;

end.








731   [COM/OLE] ¶°ÀÖ´Â ¸ðµç Microsoft Internet Explorer ÀÇ html ºÒ·¯¿À±â  ±è¿µ´ë 2003/03/30 6400 1592
730   [À©µµ¿ìÁî API] IEÀÇ "Áñ°Üã±â ±¸¼º" È­¸é ¶ç¿ì±â  ±è¿µ´ë 2003/03/30 6407 2050
729   [À©µµ¿ìÁî API] µ¥½ºÅ©Å¾ÀÇ ÇöÀç Ä¿¼­À§Ä¡ÀÇ Å¸ÀÌƲ¸í°ú Ŭ·¡½º¸í ±¸ÇÏ±â  ±è¿µ´ë 2003/03/29 5082 1280
728   [À©µµ¿ìÁî API] ¶°ÀÖ´Â ¸ðµç Microsoft Internet Explorer Á×ÀÌ±â  ±è¿µ´ë 2003/03/29 5366 1512
727   [½Ã½ºÅÛ] À©µµ¿ìÁî ÀüüÀÇ ¸¶¿ì½º/Å°º¸µå ÀÔ·Â ±ÝÁö  ±è¿µ´ë 2003/03/29 5884 1501
726   [³×Æ®¿÷/ÀÎÅͳÝ] ÀÎÅͳݿ¡ Á¢¼ÓµÇ¾î ÀÖ´ÂÁö °Ë»çÇÏ±â  ±è¿µ´ë 2003/03/29 5847 1431
725   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] TMemo ½ºÅ©·Ñ ´Ù¿î ½ÃÅ°±â  ±è¿µ´ë 2003/03/29 5214 1496
724   [À©µµ¿ìÁî API] Àüü È­¸é(Full Screen) ¸¸µé±â  ±è¿µ´ë 2003/03/29 5749 1486
723   [À©µµ¿ìÁî API] "½ÃÀÛ"->"ÇÁ·Î±×·¥" ¸Þ´º¿¡ Æú´õ Ãß°¡ÇÏ±â  ±è¿µ´ë 2003/03/29 5475 1414
722   [À©µµ¿ìÁî API] ÆûÀÌ Minimized µÇ¾úÀ»¶§ ±ô¹ÚÀÌ°Ô ÇÏ±â  ±è¿µ´ë 2003/03/29 6888 1795
721   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ListBox¿¡¼­ ¸¶¿ì½º À̵¿½Ã ¾ÆÀÌÅÛÀ» ÈùÆ®·Î º¸¿©ÁÖ±â  ±è¿µ´ë 2003/03/27 4681 1246
720   [½Ã½ºÅÛ] DOS ¸í·É¾î ½ÇÇàÇÏ°í °á°ú ¹Þ¾Æ¿À±â  ±è¿µ´ë 2003/03/27 5869 1427
719   [À©µµ¿ìÁî API] ¾×Ƽºê µ¥½ºÅ©Å¾¿¡ À¥ ÄÁÅÙÆ®°¡ Ç¥½ÃÁßÀÎÁö ¾Ë±â  ±è¿µ´ë 2003/03/27 4889 1354
718   [À©µµ¿ìÁî API] ÀÛ¾÷Ç¥½ÃÁÙÀÇ ½Ã°è °¨Ãß±â/º¸ÀÌ±â  ±è¿µ´ë 2003/03/27 7956 2146
717   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Ä¿¼­(Cursor)ÀÇ À̹ÌÁö ±¸ÇÏ±â  ±è¿µ´ë 2003/03/27 5108 1437
716   [À©µµ¿ìÁî API] ½ºÅ©¸° ¼¼À̹ö On/Off  ±è¿µ´ë 2003/03/27 4622 1176
715   [À©µµ¿ìÁî API] ÈÞÁöÅë ºñ¿ì±â  ±è¿µ´ë 2003/03/27 5957 1487
714   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] IE Toolbar ¿¡ ¹öÆ° ¿Ã¸®±â  ±è¿µ´ë 2003/03/26 12958 1349
713   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ±âº» Popup Memu ¶ç¿ìÁö ¾Ê±â  ±è¿µ´ë 2003/03/26 4164 1106
712   [À©µµ¿ìÁî API] "Àӽà ÀÎÅÍ³Ý ÆÄÀÏ" ÀüºÎ Áö¿ì±â  ±è¿µ´ë 2003/03/26 5908 1400
711   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¼³Ä¡µÈ ¸ðµç ÇÁ·Î±×·¥ Àоî¿À±â  ±è¿µ´ë 2003/03/26 6108 1603
710   [µ¥ÀÌÅͺ£À̽º] DBGrid ÀÇ ÇöÀç Ä¿¼­ÀÇ Çà/¿­ ±¸ÇÏ±â  ±è¿µ´ë 2003/03/26 5785 1408
709   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] INF ÆÄÀÏ ¼³Ä¡ÇÏ±â  ±è¿µ´ë 2003/03/26 5736 1413
708   [µ¥ÀÌÅͺ£À̽º] BDE Alias ¾øÀÌ Database µ¿ÀûÀ¸·Î ¿¬°áÇÏ±â  ½ÅÈÆÀç 2003/03/24 13275 1272
707   [COM/OLE] Win2k, Win Xp - Active X - Dax error : Access violationÇØ°á(IE»ó¿¡¼­)  ½ÅÈÆÀç 2003/03/20 14962 1369
706   [µ¥ÀÌÅͺ£À̽º] ORA-12571: TNS:packet writer failure  ±è¿µ´ë 2003/03/19 10186 1519
705   [µ¥ÀÌÅͺ£À̽º] DBGrid ÀÇ ¸ðµç Row ¸¦ Select ½ÃÅ°±â(SelectAll)  ±è¿µ´ë 2003/03/18 4817 1161
704   [µ¥ÀÌÅͺ£À̽º] index fileÀÇ °¹¼ö¿Í ¼º´É ¹®Á¦  ±è¿µ´ë 2003/03/17 6801 1494
703   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ListView¿¡ È®ÀåÀÚº° ¾ÆÀÌÄÜ ³Ö±â  ½ÅÈÆÀç 2003/03/15 7585 1346
702   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ScrollBox ¿¡ ¹è°æ±×¸² ³Ö±â  ±è¿µ´ë 2003/03/14 4485 1211
701   [½Ã½ºÅÛ] 'ÀÀ´ä¾øÀ½' ÇÁ·Î¼¼¼­¸¦ °¨ÁöÇÏ´Â À볪´Â ¹æ¹ý  ±¸Ã¢¹Î 2003/03/14 14966 1486
700   [À©µµ¿ìÁî API] ÀÔ·ÂÀ» ±â´Ù¸®´Â Ç®½ºÅ©¸° ÄÜ¼Ö À©µµ¿ì ¸¸µé¾î º¸±â  ±¸Ã¢¹Î 2003/03/14 7116 1304
699   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ƯÁ¤ ·¹Áö½ºÆ®¸® Å° ÀÇ ¸ðµç ¸ñ·ÏÀ» Çѹ濡! Àоî¿À±â  ±¸Ã¢¹Î 2003/03/14 5556 1073
698   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Æ®·¹ÀÌ ¾ÆÀÌÄÜ¿¡ dz¼± ÈùÆ® º¸¿©ÁÖ±â  ±¸Ã¢¹Î 2003/03/14 8130 1564
697   [À©µµ¿ìÁî API] ¿ÜºÎ ÇÁ·Î±×·¥ÀÇ »óÅÂÇ¥½ÃÁÙÀÇ Text °¡Á®¿À±â  ±¸Ã¢¹Î 2003/03/14 6788 1578
696   [½Ã½ºÅÛ] IP Address À©µµ¿ì ÆûÀ§¿¡ ¸¸µé¾îº¸±â  ±¸Ã¢¹Î 2003/03/14 6223 1412
695   [½Ã½ºÅÛ] ƯÁ¤ DLL ÀÇ ÇÔ¼ö¸ñ·ÏÀ» ±¸Çغ¸ÀÚ.  ±¸Ã¢¹Î 2003/03/14 6352 1362
  [½Ã½ºÅÛ] ¾²·¹µå ³»¿¡¼­ ÆûÀ» »ý¼ºÇغ¸ÀÚ  ±¸Ã¢¹Î 2003/03/14 7770 1352
693   [À©µµ¿ìÁî API] ¿ÜºÎ ÇÁ·Î±×·¥ ¸ð´Þ âó·³ ¶ç¿ö¼­ Á¾·áµÉ¶§ ±â´Ù¸®±â(½ÃÁ¡ ¾Ë±â)  ±¸Ã¢¹Î 2003/03/14 13160 1429
692   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ÄÄÆ÷³ÍÆ®¿¡ ¿ÀÇ´ÙÀ̾ó·Î±×¸¦ ¶ç¿ì´Â ¼Ó¼º ¸¸µå´Â ¹æ¹ý  ±¸Ã¢¹Î 2003/03/14 4435 1161

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

Copyright 1999-2025 Zeroboard / skin by zero