|
창조 팁 - '창조' 에 관한 팁을 올리는 곳입니다. 다수의 이미지가 필요하시면 아래 '이미지 자료실' 에 업로드 후 불러와 주세요.. |
| Posted by 박종훈 | 2006-10-15 13:18:30, Hit : 7514 | |
|
|
|
※델파이의 소스를 창조에 맞게 변환하여 올립니다^^
원본 델파이 소스 :
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 |
|
|
|
@한수훈
거기에선 아마 강제로 양수로 고친 부분을 다시 원래의 음수로 넣어야 하지 않을까요. |
|
|
지우개 Expert 3.0 제작자 : 천호성 님 [LINK] |
|
|
|
대박로또2005 제작자 : 최재일 님 [LINK] |
|
|
1 | 박종훈 님 | 15292 점 | |
2 | 지상현 님 | 8809 점 | |
3 | 손상진 님 | 7388 점 | |
4 | 권선중 님 | 6060 점 | |
5 | 이진백 님 | 5174 점 | |
|
|
|
가입일 | 닉네임 |
05/31 | 김동률 |
03/31 | 홍형기 |
09/01 | o00pp99oo |
12/27 | 이재민 |
11/20 | 이희철 |
|
|
|
|
. |
. |
. |
|