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

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


Category

  ±è¿µ´ë(2003-03-06 21:02:52, Hit : 4669, Vote : 1134
 È­¸éº¯°æ½Ã ÄÞÆ÷³ÍÆ® À§Ä¡¿Í Å©±â¸¦ Á¶Á¤

// ¾Æ·¡ ¿¹Á¦ÀÇ Button1, RadioButton1, Memo1, Label1Àº
// ÀÓÀÇ À§Ä¡¿¡ ¿Ã·Á³õ°í ½ÇÇàÇÏ½Ã¸é µË´Ï´Ù

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    RadioButton1: TRadioButton;
    Memo1: TMemo;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  oldwidth, oldheight: integer;

implementation
{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  // ÀÌÀüÅ©±â ÀúÀå
  oldheight := Height;
  oldwidth  := Width;
end;

procedure TForm1.FormResize(Sender: TObject);
var
  i: integer;
  px, py, t: real;
begin
  for i := 0 to ComponentCount -1 do
    if (Components[i] is TControl) then
    begin
      // ÀÌÀüÅ©±â¿Í º¯°æµÈ Å©±âÀÇ ºñÀ²À» ±¸ÇÑ´Ù
      px := oldwidth / Width;
      py := oldheight / Height;

      // ¾Æ·¡ °¢°¢Àº º¯µ¿ ºñÀ²À» ¹Ý¿µÇÑ ÄÚµå
      t := (Components[i] as TControl).Top;
      (Components[i] as TControl).Top := Trunc(t/py);

      t := (Components[i] as TControl).Left ;
      (Components[i] as TControl).Left := Trunc(t/px) ;

      t := (Components[i] as TControl).height ;
      (Components[i] as TControl).height := Trunc(t/py) ;

      t := (Components[i] as TControl).width ;
      (Components[i] as TControl).width := Trunc(t/px) ;
    end ;

  // ÀÌÀüÅ©±âÀ» ÇöÀçÅ©±â·Î ¼öÁ¤
  oldheight := Height ;
  oldwidth  := Width ;
end;

end.






691   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ListView ÀÇ Ä÷³º°·Î Sort (³»¸²Â÷¼ø Æ÷ÇÔ)  ±è¿µ´ë 2003/03/05 5369 1151
690   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¸í·ÉÇà ÀÎÀÚ ¹Þ¾Æ¿À±â  ±è¿µ´ë 2003/03/05 7297 1885
689   [³×Æ®¿÷/ÀÎÅͳÝ] List of raw FTP commands  ±è¿µ´ë 2003/03/05 7255 1899
688   [³×Æ®¿÷/ÀÎÅͳÝ] RFC: Request for Comments  ±è¿µ´ë 2003/03/05 7800 2047
687   [³×Æ®¿÷/ÀÎÅͳÝ] À©µµ¿ìÁî ¼ÒÄÏÀÇ ¿¡·¯¹øÈ£¿¡ ´ëÇÑ ¼³¸í  ±è¿µ´ë 2003/03/05 7853 2714
686   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ÆÄÀÏÀÇ ÇØºÎ  ±è¿µ´ë 2003/03/05 6393 1715
685   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ListBoxÀÇ ½ºÅ©·Ñ¹Ù¸¦ ¿òÁ÷¿©º¸ÀÚ  ±è¿µ´ë 2003/03/05 4586 1105
684   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] PopupMenuÀÇ Æ¯Á¤ MenuItemÀ¸·Î À̵¿ÇÏ±â  ±è¿µ´ë 2003/03/05 2942 787
683   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] µ¥½ºÅ©Å¾ÀÇ ¾ÆÀÌÄÜÀ» ¸ù¶¥ ¿òÁ÷¿©º¸ÀÚ!!  ±è¿µ´ë 2003/03/05 6433 1902
682   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¸¶¿ì½ºÄ¿¼­¸¦ ƯÁ¤À§Ä¡·Î À̵¿½ÃŰ±â  ±è¿µ´ë 2003/03/05 5948 1216
681   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Á¦¾îÆÇÀÇ applet ¶ç¿ì±â  ±è¿µ´ë 2003/03/05 2883 778
680   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] INI ÆÄÀÏÀÌ ÀúÀåÀ» ¾È ÇØ?  ±è¿µ´ë 2003/03/05 4172 1114
679   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¸¶¿ì½º¿µ¿ª Á¦¾îÇÏ±â  ±è¿µ´ë 2003/03/05 3710 985
678   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¸®½ºÆ®ºä¿¡¼­ µ¿ÀûÀ¸·Î Ä®·³»èÁ¦ÇÏ±â  ±è¿µ´ë 2003/03/05 6958 1412
677   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Interesting Delphi Keystrokes !  ±è¿µ´ë 2003/03/05 3652 1068
676   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Application ¼öÁØ¿¡¼­ ÇѱÛ/¿µ¹® Á¦ÇÑµÎ±â  ±è¿µ´ë 2003/03/05 6054 1874
675   [µ¥ÀÌÅͺ£À̽º] dBASE Table File Extensions  ±è¿µ´ë 2003/03/05 4619 1304
674   [µ¥ÀÌÅͺ£À̽º] Paradox Table File Extensions  ±è¿µ´ë 2003/03/05 3740 1035
673   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ÆÄÀÏÀÇ ¼Ó¼º(Attribute) Àбâ / ¹Ù²Ù±â  ±è¿µ´ë 2003/03/05 4071 1056
672   [µ¥ÀÌÅͺ£À̽º] DBGrid ¿¡¼­ ¼öÁ÷ Scroll Bar °¨Ãß±â  ±è¿µ´ë 2003/03/05 4680 1269
671   [À©µµ¿ìÁî API] ÀÎÅÍ³Ý ¸µÅ© ¸¸µé±â  ±è¿µ´ë 2003/03/06 4594 1280
670   [³×Æ®¿÷/ÀÎÅͳÝ] ³» PCÀÇ IPÁÖ¼Ò´Â ?  ±è¿µ´ë 2003/03/06 5361 1236
669   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¹®ÀÚ¿­ÀÇ ¾Ïȣȭ(Password ó¸®) & INI ÆÄÀÏ  ±è¿µ´ë 2003/03/06 6402 1541
668   [À©µµ¿ìÁî API] À©µµ¿ìÀÇ Å¸ÀÌÆ²¹Ù¸¦ ¾ø¾Öº¸ÀÚ!  ±è¿µ´ë 2003/03/06 4495 1363
667   [À©µµ¿ìÁî API] Ŭ¸³º¸µåÀÇ ³»¿ëÀ» TXT ÆÄÀÏ¿¡ ´ã¾Æº¸ÀÚ!  ±è¿µ´ë 2003/03/06 6539 1777
666   [½Ã½ºÅÛ] ÇÁ·Î¼¼¼­¸¦ »ý¼º½ÃÄѺ¸ÀÚ!  ±è¿µ´ë 2003/03/06 4597 1223
665   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] µ¨ÆÄÀÌÀÇ Object Inspector ¸ð¹æ  ±è¿µ´ë 2003/03/06 3660 834
664   [½Ã½ºÅÛ] ½Ã½ºÅÛÀÇ °¢Á¾ Á¤º¸  ±è¿µ´ë 2003/03/06 7586 1314
663   [µ¥ÀÌÅͺ£À̽º] DBGrid ƯÁ¤ Cell¿¡ »ö»ó³Ö±â  ±è¿µ´ë 2003/03/06 7916 1618
662   [µ¥ÀÌÅͺ£À̽º] DBGrid ÀÇ Æ¯Á¤Çʵ常 Highlighting ½ÃŰ±â  ±è¿µ´ë 2003/03/06 4739 1140
661   [COM/OLE] How to register an OCX  ±è¿µ´ë 2003/03/06 5063 1173
660   [À©µµ¿ìÁî API] "Windows Á¤º¸" About È­¸é »ç¿ëÇÏ±â  ±è¿µ´ë 2003/03/06 6518 1986
659   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¹®ÀÚ¿­¿¡ ÇѱÛÀÌ ÀÖ´ÂÁö °Ë»ç  ±è¿µ´ë 2003/03/06 3882 985
658   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] TColor°ªÀ» 16Áø¼ö ¹®ÀÚ¿­·Î ¹Ù²Ù±â  ±è¿µ´ë 2003/03/06 6236 1778
  [ÀϹÝ/ÄÄÆ÷³ÍÆ®] È­¸éº¯°æ½Ã ÄÞÆ÷³ÍÆ® À§Ä¡¿Í Å©±â¸¦ Á¶Á¤  ±è¿µ´ë 2003/03/06 4669 1134
656   [½Ã½ºÅÛ] ¸¶¿ì½º Æ÷ÀÎÅÍ ¼Óµµ ±¸ÇÏ±â  ±è¿µ´ë 2003/03/06 5598 1722
655   [½Ã½ºÅÛ] ¸¶¿ì½º Æ÷ÀÎÅÍ ¼Óµµ ¹Ù²Ù±â  ±è¿µ´ë 2003/03/06 5075 1260
654   [½Ã½ºÅÛ] ¸¶¿ì½º ÀÚÃë(trails)ÀÇ °¹¼ö Á¶Á¤ÇÏ±â  ±è¿µ´ë 2003/03/06 5977 1845
653   [½Ã½ºÅÛ] ¸¶¿ì½º µÎ ¹ø ´©¸£±â ¼Óµµ Á¶Á¤ÇÏ±â  ±è¿µ´ë 2003/03/06 6048 1832
652   [µ¥ÀÌÅͺ£À̽º] ¼³Ä¡µÈ BDE Language Drivers ±¸ÇÏ±â  ±è¿µ´ë 2003/03/06 3483 830

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

Copyright 1999-2023 Zeroboard / skin by zero