NonVCL Checkbox - Checkstate

[Horst0815]

erzeugt hab ich sie mit

Delphi-Quellcode:

     cbMusic := CreateWindowEx(0,'BUTTON','Music',BS_AUTOCHECKBOX or WS_VISIBLE or WS_CHILD,
                15,120,70,25,hwnd,IDMusic, hInstance, nil);

wie frage ich jetzt ab ob checked oder nicht

[himitsu]

bm_setcheck (BM_GETCHECK ... k.A. warum, aber die DP will das unbedingt klein schreiben :gruebel: )

[Luckie]

Hat schon mal jemand alles für dich ausgetüftelt: http://www.michael-puff.de/Programmi...phi/Tutorials/ -> Win32_API.* ;)

[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

[Luckie]

Infomem ist global?

[Horst0815]

Jo das wars Danke

[Luckie]

Das hättest du aber auch in meinen Demos zu den Tutorials sehen können. ;)