| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Написание программ в Delphi на WinApi [D7, WinXP]
yahoo © (2008-04-20 20:45:00)Решил попробовать писать программы на WinApi,пока только получилось создать саму форму ,батоны и едиты...Решил сделать калькулятор...
Сначало все работало , хз из за чего потом перестало норм брать текст из едита...Вообщем вопрос по существу где тут ошибка?
Код урезал) только кнопка "0" и едит
program Project1;
uses
windows,
messages,sysutils;
const
id_Button0 = 100;
id_edit = 110;
var
cymm:string;
function MainWndProc(hWindow: HWND; Msg: UINT; wParam: wParam;
lParam: lParam): LRESULT; stdcall; export;
var
Rect: TRect;
ps: TPaintStruct;
s:Pansichar;
s2:string;
begin
cymm:='0';
Result := 0;
case Msg of
wm_Create: begin
CreateWindowEx (0, // extended styles
'BUTTON', // predefined class
'&0', // caption
ws_Child or ws_Visible or ws_Border
or bs_PushButton, // styles
25, 110, // position: see wm_Size
45, 20, // size
hWindow, // parent
id_Button0, // identifier (not a menu handle)
hInstance, // application id
nil); // init info pointer
CreateWindowEx (0, // extended styles
'EDIT', // predefined class
'', // text
ws_Child or ws_Visible or ws_Border
or ES_RIGHT, // styles
10, 5, // position: see wm_Size
120, 20, // size
hWindow, // parent
id_edit, // identifier (not a menu handle)
hInstance, // application id
nil); // init info pointer
end;
wm_Size:
begin
GetClientRect (hWindow, Rect);
end;
WM_PAINT:
begin
BeginPaint(hWindow, ps);
SetBkMode(ps.hdc, TRANSPARENT);
EndPaint(hWindow, ps);
end;
WM_DESTROY: PostQuitMessage(0);
wm_Command:begin
case LoWord (wParam) of
id_Button0:
if HiWord (wParam) = bn_Clicked then begin
GetWindowText(GetDlgItem (hWindow, id_edit),s,50);
s2:= s;
s2:=s2+'0';
s:=Pchar(s2);
SetWindowText(GetDlgItem (hWindow, id_edit),s);
end end
end
else
begin
Result := DefWindowProc(hWindow, Msg, wParam, lParam);
Exit;
end;
end;
end;
var
wc: TWndClass;
hWindow: HWND;
Msg: TMsg;
begin
wc.lpszClassName := 'YourAppClass';
wc.lpfnWndProc := @MainWndProc;
wc.Style := CS_VREDRAW or CS_HREDRAW;
wc.hInstance := hInstance;
wc.hIcon := LoadIcon(0, IDI_APPLICATION);
wc.hCursor := LoadCursor(0, IDC_ARROW);
wc.hbrBackground := (COLOR_WINDOW + 1);
wc.lpszMenuName := nil;
wc.cbClsExtra := 0;
wc.cbWndExtra := 0;
RegisterClass(wc);
hWindow := CreateWindowEx(WS_EX_CONTROLPARENT or WS_EX_WINDOWEDGE,
'YourAppClass',
'API',
WS_VISIBLE or WS_CLIPSIBLINGS or
WS_CLIPCHILDREN or WS_OVERLAPPEDWINDOW,
CW_USEDEFAULT, CW_USEDEFAULT,
150, 200 ,
0,
0,
hInstance,
nil);
ShowWindow(hWindow, CmdShow);
UpDateWindow(hWindow);
while GetMessage(Msg, 0, 0, 0) do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
Halt(Msg.wParam);
end.
P.S. дайте плиз линки на норм инфу об WinApi и примеры создания компанентов.
Dmitry S (2008-04-20 21:56:00) [21]ch: Thandle;
s: PChar;
sl: Integer;
ch := GetDlgItem (hWindow, id_edit);
sl := GetWindowTextLength(ch);
getMem(s, sl+1);
ZeroMemory(s, sl+1);
GetWindowText(ch,s,50);
...
freeMem(s)
yahoo (2008-04-20 21:54:00) [22]
> DVM © (20.04.08 21:46) [13]
> > никто не знает почему > GetWindowText(GetDlgItem (hWindow,
> id_edit),s,50); выдает > не то что внесено в едит?Пушкин
> знает, который память выделял под S.
полный код в первом посте...
уже сам нашел в чем баг, надо просто объявить не в функции а выше...
Dmitry S (2008-04-20 21:53:00) [23]Лови=)
http://argi.ru/heart3.rar
DVM (2008-04-20 21:46:00) [24]
> никто не знает почему
> GetWindowText(GetDlgItem (hWindow, id_edit),s,50); выдает
> не то что внесено в едит?
Пушкин знает, который память выделял под S.
yahoo (2008-04-20 21:35:00) [25]
> {RASkov} © (20.04.08 21:33) [10]
> function InStr(I: Integer): string;begin Str(I, Result);
> end;function InInt(S: string): Integer;var Code: Integer;
> begin Val(S, Result, Code); if Code<>0 then begin Result:
> =0; end;end;
спасибо )
{RASkov} (2008-04-20 21:33:00) [26]
function InStr(I: Integer): string;
begin
Str(I, Result);
end;
function InInt(S: string): Integer;
var Code: Integer;
begin
Val(S, Result, Code);
if Code<>0 then begin
Result:=0;
end;
end;
yahoo (2008-04-20 21:33:00) [27]никто не знает почему
GetWindowText(GetDlgItem (hWindow, id_edit),s,50); выдает не то что внесено в едит?
если
...
const
id_edit = 110;
....
CreateWindowEx (0, 'EDIT','',ws_Child or ws_Visible or ws_Border
or ES_RIGHT,10, 5, 120, 20, hWindow, id_edit,hInstance, nil);
...
Dmitry S (2008-04-20 21:28:00) [28]
> {RASkov} © (20.04.08 21:20) [8]
Я про это:
> А как по другому сделать перевод из стрингов в интеджер
> и тд?
> yahoo © (20.04.08 21:18) [7]
минут через 10 выложу... Открыточка моя=)
{RASkov} (2008-04-20 21:20:00) [29]> для того чтоб inttostr работал...
> [6] Dmitry S © (20.04.08 21:10)
> есть процедура val ;)
Она в другую сторону работает ;)
Впрочем это не аргумент в пользу SysUtils... :)
yahoo (2008-04-20 21:18:00) [30]Dmitry S можешь поделиться?
Dmitry S (2008-04-20 21:10:00) [31]есть процедура val ;)
Примеры есть...
yahoo (2008-04-20 21:07:00) [32]
> Dmitry S © (20.04.08 21:01) [4]
> А в чем тогда прикол писать на WinApi?
А как по другому сделать перевод из стрингов в интеджер и тд?
А прикол - знание сила ... может пригодится в будущем...
P.S. есть примеры программ на WinApi?
Dmitry S (2008-04-20 21:01:00) [33]А в чем тогда прикол писать на WinApi?
yahoo (2008-04-20 20:58:00) [34]
> Dmitry S © (20.04.08 20:53) [2]
> > sysutilsА это зачем?
для того чтоб inttostr работал...для калькулятора, в едите же тип стринг...
Dmitry S (2008-04-20 20:53:00) [35]
> sysutils
А это зачем?
Andy BitOff (2008-04-20 20:49:00) [36]> дайте плиз линки на норм инфу об WinApi
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnanchor/html/anch_win32com.asp
| |
Страницы: 