창조유저그룹-커즈닷컴

창조 팁
- '창조' 에 관한 팁을 올리는 곳입니다. 다수의 이미지가 필요하시면 아래 '이미지 자료실' 에 업로드 후 불러와 주세요..

LIST ALL

Posted by 박종훈

2006-10-15 13:18:30, Hit : 7567

숫자만 입력되는 에디트[Numeric Editbox]

Homepage : http://www.canxan.com/~qnrdlqkrwhdgns

File #2 : Numeric_Editbox.rar (1.9 KB) Download : 246

Post URL : http://cugz.sjworks.net/bbs/zboard.php?id=tip&no=306

※델파이의 소스를 창조에 맞게 변환하여 올립니다^^

원본 델파이 소스 :

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
defstyle: dWord;

begin
defstyle := GetWindowLong(Edit1.Handle, GWL_STYLE);
SetWindowLong(Edit1.Handle, GWL_STYLE, defstyle or ES_NUMBER);

end;

end.

그러면.. 창조로 변환해본 소스를 한번 볼까요? ^^

일단, API가 사용되므로, 사용자함수가 필요합니다.
사용자함수의 설정은 아래와 같이 해주세요.

<사용자함수 설정>
연결여부 := 참;
연결파일 := "user32.dll";

<사용자함수 함수정의>
실수함수:GetWindowLongA(실수:핸들, nIndex);
실수함수:SetWindowLongA(실수:핸들, nIndex, dwNewLong);

그렇다면.. 본론으로 들어가보죠~

실수:스타일1;

스타일1 := 사용자함수0.GetWindowLongA(에디트0.핸들, 4294967280);
// 4294967280 는, GWL_STYLE의 상수값입니다.

사용자함수0.SetWindowLongA(에디트0.핸들, 4294967280, bOR(스타일1,8192));
// 8192는, ES_NUMBER의 상수값입니다.

저번에.. 올려드린 것과는 달리, 한글입력시에도 문제가 되지 않습니다^^

※ 예제파일첨부했습니다.

장규형 2006-11-16 PM 10:56:54


예제 소스좀 올려주시면 감사하겠습니다... 이해가 안가요..

박종훈 2006-11-17 PM 6:24:05


예제파일 첨부해드렸습니다.^^

장규형 2006-11-17 PM 6:56:03


박종훈님 감사합니다.

한수훈 2006-12-22 AM 11:33:54


감사합니다;;

한수훈 2008-11-08 PM 5:06:32


창조 0.9b dbupdate2.1(음/양수 에러 해결편)에서.. 안되네요ㅜ.ㅜ;;

지상현 2010-06-21 PM 2:42:16


@한수훈 거기에선 아마 강제로 양수로 고친 부분을 다시 원래의 음수로 넣어야 하지 않을까요.