program Project1;

uses
     Messages, Windows;

const
     ID_DIALOG = 101;
     ID_ICON   = 500;
     ID_LABEL  = 1007;
     ID_EDIT   = 1008;
     ID_EXIT   = 1009;
var
     hDlg : dword = 0;

{$R template.res}

function DlgFunc(hWnd: hWnd; uMSG: DWord; wParam: wParam; lParam: lParam): Bool; stdcall;
var
     hPinceau  : COLORREF;
begin
     result := true;
     case umsg of
          WM_CREATE :
          begin
               hPinceau := CreateSolidBrush($00E4AD4F);
          end;

          WM_INITDIALOG :
          begin
               //SendMessage(hWnd,WM_SETICON,0,LoadIcon(hWnd,'500'));
               SetWindowText(hWnd,'Delphi API');
          end;

          WM_LBUTTONDOWN :
          begin
               SendMessage(hWnd,WM_SYSCOMMAND,SC_MOVE+2,0);
          end;

          WM_CTLCOLOREDIT :
          begin
               SetBkMode(wParam,TRANSPARENT);
               SetTextColor(wParam,$00FFFFFF);
               //result := hPinceau;
          end;

          WM_CTLCOLORDLG :
          begin

          end;

          WM_CLOSE :
          begin
               EndDialog(hWnd,0);
          end;

          WM_DESTROY :
          begin
               PostQuitMessage(0);
          end;

          WM_COMMAND :
          begin
               if ((hiWord(wParam) = BN_CLICKED) and (loword(wParam) = ID_EXIT)) then
                    SendMessage(hWnd,WM_CLOSE,0,0);
          end
          else result := false;
     end;
end;

begin
     hDlg := DialogBoxParam(HInstance,MAKEINTRESOURCE(ID_DIALOG),0,@DlgFunc,0);
end.