창조유저그룹-커즈닷컴
Window close
ID :     PASS :   
   
  처음으로
  창조
  창조 소개
창조 다운로드
CUGz.com 소개
온라인 도움말
  커뮤니티
  가입인사
자유게시판
Q/A게시판 (1/0)
TIP/TECH
열린강좌
자주하는질문
아이디어게시판
  자료실
  소스자료실
프로그램자료실
기타자료실
명예의 전당
이미지 자료실
  지원/기타
  표준용어재정
구글 웹서치  
관리자 전용


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


LIST ALL
Posted by 박종훈2006-10-15 13:18:30, Hit : 7496
숫자만 입력되는 에디트[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  
@한수훈
거기에선 아마 강제로 양수로 고친 부분을 다시 원래의 음수로 넣어야 하지 않을까요.
LIST ALL               GO TO THE TOP


N
   Subject
Posted by
Date
H
342
   FTP 관련 한 API 들.. [2]
김진영 2009/04/04  11520
341
   어떤방법으로든 핸들[Handle]를 구해보자! [수정#3] [18]
박종훈 2006/12/31  10058
340
   [활용]그림판 사진 합성 방법 [1]
권선중 2003/12/26  8582
339
   작업표시줄에서 프로그램 완전히 숨기기! [1]
지상현 2006/06/06  8291
338
   오토런 AUTORUN 만들기 CD 구어서 자신만의 프로그램.. [4]
SJsoft.inc 2002/12/13  8062
337
   VB - 창조 명령어 비교(?) [2]
박종훈 2006/02/15  7871

   숫자만 입력되는 에디트[Numeric Editbox] [6]
박종훈 2006/10/15  7496
335
    메모리 확보 유틸의 기능 분석 [1]
Pueding 2002/09/08  7477
334
   [ㅎ메모] 단어구분[자동줄바꿈] 속성에 주의하자! [5]
박종훈 2006/08/10  7398
333
   최근 열어본 문서 지우기... [4]
박종훈 2006/04/29  7100
332
   XP 루나 인터페이스 사용하기 [0.7도 가능] [12]
지상현 2003/02/26  6975
331
   [팁!] 넥슨 게임 광고 제거 하자! [5]
위자드 2004/07/26  6910
330
   16진→2진→10진 알고리즘. [2]
Anonymous 2002/09/17  6858
329
   창조에서 음수를 사용할 때 주의하자! [1]
지상현 2005/10/08  6813
328
   [팁] 실행파일 용량을 확실하게 줄이자! [19]
황현석 2004/10/30  6779
327
   잡다한 명령어들..;;;;
김진영 2002/12/22  6763
326
   리스트박스 가지고 놀기! [5]
지상현 2006/05/27  6592
325
   XP처럼, 암호를 * 대신 ● 로 표시하기 ㅋ [3]
박종훈 2006/07/25  6489
324
   [CELK] 창조로 간단한 신호 보내기 [1]
지상현 2006/07/11  6448
323
   [팁]창조로 만든 프로그램에서 윈도우의 열려있는 모든 창을 ... [8]
김환욱 2002/10/29  6444
322
   [대박!] 메모리 사용률 확! 줄여보자 ㅋ [5]
박종훈 2006/08/12  6339
321
   Manifest 파일을 만들면, 생기는 변화!
박종훈 2006/12/17  6334
320
   확실한 시스템/윈도우/임시 폴더 알아오기 [6]
지상현 2005/10/28  6312
319
   Window Message 상수값들 -_-; [3]
박종훈 2006/03/15  6307
318
   [TIP] 창조 0.9의 그림판 투명창을 깔끔하게 만들기 [3]
권선중 2005/03/08  6299
LIST ALL   1 [2][3][4][5][6][7][8][9][10]..[14] Next
Copyright 1999-2024 Zeroboard / skin by reedyfox in miniwini style
로그인
지우개 Expert 3.0
제작자 : 천호성 님 [LINK]
로그인
대박로또2005
제작자 : 최재일 님 [LINK]
로그인
1박종훈15292 점
2지상현8809 점
3손상진7388 점
4권선중6060 점
5이진백5174 점
로그인
가입일닉네임
05/31김동률
03/31홍형기
09/01o00pp99oo
12/27이재민
11/20이희철
로그인