NonVCL Checkbox - Checkstate

[Horst0815]

hab trotz der tollen Tuts aber das Problem das Ich zwar zum Test den Fenster-titel verändern kann aber nicht in ein Editfeld schreiben

Delphi-Quellcode:

      
const
  memoInfo    = 105;
.........
* case uMsg of
* * WM_CREATE:
* * * begin
............

  Infomem := CreateWindowEx(0, 'Edit', '', WS_CHILD or WS_VISIBLE or
          WS_BORDER, 90, 95, 230, 100, hWnd, memoInfo, hInstance, nil);
...........

    WM_COMMAND:
      case hiword(wParam) of
        BN_CLICKED:
          case loword(wParam)of
            btnBack:
.....

 if Backup then
                  begin
                    if  CopyFile(Target, '.BAK', False)  THEN
                      MessageText := 'Backup Done';
                          SendMessage(Infomem,WM_SETTEXT,0,Integer(MessageText)); // ersetze ich Infomem mit hwnd dann wird der Fenster-titel gesetzt
                         // SendMessage(Infomem,EM_SETSEL,0,0);
                  end else
                  begin
                    MessageText := 'Backup Fail';
                   SendMessage(Infomem,WM_SETTEXT,0,Integer(MessageText));
                         // SendMessage(Infomem,EM_SETSEL,0,0);
                  end; //backup

was hab ich übersehen