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

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


Category

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

// ¾Æ·¡ ¿¹Á¦ÀÇ 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 5191 1101
690   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¸í·ÉÇà ÀÎÀÚ ¹Þ¾Æ¿À±â  ±è¿µ´ë 2003/03/05 7208 1882
689   [³×Æ®¿÷/ÀÎÅͳÝ] List of raw FTP commands  ±è¿µ´ë 2003/03/05 7229 1894
688   [³×Æ®¿÷/ÀÎÅͳÝ] RFC: Request for Comments  ±è¿µ´ë 2003/03/05 7756 2039
687   [³×Æ®¿÷/ÀÎÅͳÝ] À©µµ¿ìÁî ¼ÒÄÏÀÇ ¿¡·¯¹øÈ£¿¡ ´ëÇÑ ¼³¸í  ±è¿µ´ë 2003/03/05 7812 2703
686   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ÆÄÀÏÀÇ ÇØºÎ  ±è¿µ´ë 2003/03/05 6351 1694
685   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ListBoxÀÇ ½ºÅ©·Ñ¹Ù¸¦ ¿òÁ÷¿©º¸ÀÚ  ±è¿µ´ë 2003/03/05 4495 1098
684   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] PopupMenuÀÇ Æ¯Á¤ MenuItemÀ¸·Î À̵¿ÇÏ±â  ±è¿µ´ë 2003/03/05 2898 783
683   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] µ¥½ºÅ©Å¾ÀÇ ¾ÆÀÌÄÜÀ» ¸ù¶¥ ¿òÁ÷¿©º¸ÀÚ!!  ±è¿µ´ë 2003/03/05 6394 1897
682   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¸¶¿ì½ºÄ¿¼­¸¦ ƯÁ¤À§Ä¡·Î À̵¿½ÃŰ±â  ±è¿µ´ë 2003/03/05 5813 1210
681   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Á¦¾îÆÇÀÇ applet ¶ç¿ì±â  ±è¿µ´ë 2003/03/05 2844 765
680   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] INI ÆÄÀÏÀÌ ÀúÀåÀ» ¾È ÇØ?  ±è¿µ´ë 2003/03/05 4091 1086
679   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¸¶¿ì½º¿µ¿ª Á¦¾îÇÏ±â  ±è¿µ´ë 2003/03/05 3626 978
678   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¸®½ºÆ®ºä¿¡¼­ µ¿ÀûÀ¸·Î Ä®·³»èÁ¦ÇÏ±â  ±è¿µ´ë 2003/03/05 5255 1406
677   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Interesting Delphi Keystrokes !  ±è¿µ´ë 2003/03/05 3601 1064
676   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Application ¼öÁØ¿¡¼­ ÇѱÛ/¿µ¹® Á¦ÇÑµÎ±â  ±è¿µ´ë 2003/03/05 5999 1855
675   [µ¥ÀÌÅͺ£À̽º] dBASE Table File Extensions  ±è¿µ´ë 2003/03/05 4594 1296
674   [µ¥ÀÌÅͺ£À̽º] Paradox Table File Extensions  ±è¿µ´ë 2003/03/05 3662 1033
673   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ÆÄÀÏÀÇ ¼Ó¼º(Attribute) Àбâ / ¹Ù²Ù±â  ±è¿µ´ë 2003/03/05 4039 1049
672   [µ¥ÀÌÅͺ£À̽º] DBGrid ¿¡¼­ ¼öÁ÷ Scroll Bar °¨Ãß±â  ±è¿µ´ë 2003/03/05 4636 1266
671   [À©µµ¿ìÁî API] ÀÎÅÍ³Ý ¸µÅ© ¸¸µé±â  ±è¿µ´ë 2003/03/06 4557 1271
670   [³×Æ®¿÷/ÀÎÅͳÝ] ³» PCÀÇ IPÁÖ¼Ò´Â ?  ±è¿µ´ë 2003/03/06 5285 1229
669   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¹®ÀÚ¿­ÀÇ ¾Ïȣȭ(Password ó¸®) & INI ÆÄÀÏ  ±è¿µ´ë 2003/03/06 6291 1497
668   [À©µµ¿ìÁî API] À©µµ¿ìÀÇ Å¸ÀÌÆ²¹Ù¸¦ ¾ø¾Öº¸ÀÚ!  ±è¿µ´ë 2003/03/06 4448 1356
667   [À©µµ¿ìÁî API] Ŭ¸³º¸µåÀÇ ³»¿ëÀ» TXT ÆÄÀÏ¿¡ ´ã¾Æº¸ÀÚ!  ±è¿µ´ë 2003/03/06 6329 1762
666   [½Ã½ºÅÛ] ÇÁ·Î¼¼¼­¸¦ »ý¼º½ÃÄѺ¸ÀÚ!  ±è¿µ´ë 2003/03/06 4559 1214
665   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] µ¨ÆÄÀÌÀÇ Object Inspector ¸ð¹æ  ±è¿µ´ë 2003/03/06 3598 829
664   [½Ã½ºÅÛ] ½Ã½ºÅÛÀÇ °¢Á¾ Á¤º¸  ±è¿µ´ë 2003/03/06 7534 1306
663   [µ¥ÀÌÅͺ£À̽º] DBGrid ƯÁ¤ Cell¿¡ »ö»ó³Ö±â  ±è¿µ´ë 2003/03/06 7729 1585
662   [µ¥ÀÌÅͺ£À̽º] DBGrid ÀÇ Æ¯Á¤Çʵ常 Highlighting ½ÃŰ±â  ±è¿µ´ë 2003/03/06 4663 1140
661   [COM/OLE] How to register an OCX  ±è¿µ´ë 2003/03/06 5007 1171
660   [À©µµ¿ìÁî API] "Windows Á¤º¸" About È­¸é »ç¿ëÇÏ±â  ±è¿µ´ë 2003/03/06 6441 1985
659   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¹®ÀÚ¿­¿¡ ÇѱÛÀÌ ÀÖ´ÂÁö °Ë»ç  ±è¿µ´ë 2003/03/06 3847 984
658   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] TColor°ªÀ» 16Áø¼ö ¹®ÀÚ¿­·Î ¹Ù²Ù±â  ±è¿µ´ë 2003/03/06 6164 1775
  [ÀϹÝ/ÄÄÆ÷³ÍÆ®] È­¸éº¯°æ½Ã ÄÞÆ÷³ÍÆ® À§Ä¡¿Í Å©±â¸¦ Á¶Á¤  ±è¿µ´ë 2003/03/06 4633 1128
656   [½Ã½ºÅÛ] ¸¶¿ì½º Æ÷ÀÎÅÍ ¼Óµµ ±¸ÇÏ±â  ±è¿µ´ë 2003/03/06 5479 1715
655   [½Ã½ºÅÛ] ¸¶¿ì½º Æ÷ÀÎÅÍ ¼Óµµ ¹Ù²Ù±â  ±è¿µ´ë 2003/03/06 4968 1251
654   [½Ã½ºÅÛ] ¸¶¿ì½º ÀÚÃë(trails)ÀÇ °¹¼ö Á¶Á¤ÇÏ±â  ±è¿µ´ë 2003/03/06 5836 1839
653   [½Ã½ºÅÛ] ¸¶¿ì½º µÎ ¹ø ´©¸£±â ¼Óµµ Á¶Á¤ÇÏ±â  ±è¿µ´ë 2003/03/06 5895 1827
652   [µ¥ÀÌÅͺ£À̽º] ¼³Ä¡µÈ BDE Language Drivers ±¸ÇÏ±â  ±è¿µ´ë 2003/03/06 3431 825

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

Copyright 1999-2022 Zeroboard / skin by zero