Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
Solved

Why does this code not work...

Posted on 2003-11-21
8
399 Views
Last Modified: 2010-04-05
program smallexe;

uses
  Windows,
  Messages;

Var
  WindowHandle: HWND;
  BH,EH: Integer;

const
  MULTIEDIT1 = 1;
  EditBox2 = 2;
  Button = 3;

function WinProc(hWnd,uMsg,wPar,lPar:Integer):Integer; stdcall;
begin
 //Writeln(Umsg,'  ',wpar,'  ',lpar);
case uMsg of
 EditBox2:
  Begin
   If Wpar=Ord('X') Then
      PostQuitMessage(0);
  End;
 Button:
   Begin
    Writeln(Umsg,'  ',wpar,'  ',lpar);
   End;
 WM_CLOSE:
   begin
    PostQuitMessage(0);
    Result:=0;
   End;
    else Result:=DefWindowProc(hWnd,uMsg,wPar,lPar);
  end;
end;

 var
  hWin: Integer;
  Msg: TMsg;
  wClass: TWndClass;
  Active: Boolean=True;
begin
 with wClass do
   begin
     style:=0;
     lpfnWndProc:=@WinProc;
     cbClsExtra:=0;
     cbWndExtra:=0;
     hInstance:=hInstance;
     hIcon:=LoadIcon(hInstance,'MAINICON');
     hCursor:=LoadCursor(0,IDC_ARROW);
     hbrBackground:=COLOR_BTNFACE+1;
     lpszMenuName:=nil;
     lpszClassName:='someclass';
end;

  RegisterClass(wClass);
  hWin:=CreateWindow('someclass','form1',
  WS_VISIBLE or WS_THICKFRAME or WS_OVERLAPPED or WS_SYSMENU,
  0,0,380,340,0,0,hInstance,nil);

 EH:=CreateWindow('EDIT','Example', ES_AUTOHSCROLL or WS_Border or WS_Child or WS_Visible,50,50,200,20,Hwin,EditBox2,Hinstance,Nil);

//Create Window, EditBox2 is what to look for...


 BH:=CreateWindow('BUTTON','OK',BS_PUSHBUTTON Or WS_VISIBLE OR WS_CHILD, 100,100,50,50, Hwin, Button, 0,Nil);



 while Active do
  begin
  if PeekMessage(Msg,hWin,0,0,PM_NOREMOVE) then
   begin
     Active:=Longint(GetMessage(Msg,hWin,0,0))<>0;
     TranslateMessage(Msg);
     DispatchMessage(Msg);
  end else WaitMessage;
end;

end.

When you press shift X it should close down the application but it does not, it should :P


 Thanks in Advance...
0
Comment
Question by:craig_capel
8 Comments
 
LVL 6

Accepted Solution

by:
GloomyFriar earned 50 total points
ID: 9802397
function WinProc(hWnd,uMsg,wPar,lPar:Integer):Integer; stdcall;
begin
case uMsg of
WM_CHAR: begin
  If Wpar=Ord('X') Then PostQuitMessage(0);
end;

EditBox2:
 Begin
  If Wpar=Ord('X') Then PostQuitMessage(0)
  else Result:=DefWindowProc(hWnd,uMsg,wPar,lPar);
 End;
Button:
  Begin
   Writeln(Umsg,'  ',wpar,'  ',lpar);
  End;
WM_CLOSE:
  begin
   PostQuitMessage(0);
   Result:=0;
  End;
   else Result:=DefWindowProc(hWnd,uMsg,wPar,lPar);
 end;
end;
0
 
LVL 2

Author Comment

by:craig_capel
ID: 9802587
Nope still did not help, closing down the form when it recvs a char is not what it's intended to do, when you press X in the edit box that displays, then it's supposed to close down...

0
 
LVL 2

Expert Comment

by:TheLeader
ID: 9802973
try to look at this link
it may help
http://www.delphi-resource.com/articles/raw_api.shtml
0
 
LVL 6

Expert Comment

by:GloomyFriar
ID: 9805588
function WinProc(hWnd,uMsg,wPar,lPar:Integer):Integer; stdcall;
var text_array: array[0..256] of char;
begin

case uMsg of
WM_COMMAND: if ((EN_UPDATE = (wPar shr 16)) and (lPar = EH)) then begin
  SendMessage(EH, WM_GETTEXT, 256, integer(@text_array[0]));
  If Pos('X', text_array) <> 0 Then PostQuitMessage(0);
end;

....
0
 
LVL 5

Expert Comment

by:DeerBear
ID: 9810117
Hi,

Did you have a look at previous posts?

I posted a complete program using Raw Apis that works nicely.

Have a look in my reply history to find it.

Cheers,

Andrew
0

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…
Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…
The Email Laundry PDF encryption service allows companies to send confidential encrypted  emails to anybody. The PDF document can also contain attachments that are embedded in the encrypted PDF. The password is randomly generated by The Email Laundr…

838 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question