Crear formulario,botones y edit con apis de windows sin vcl

[[FGarcia]]

Interesante ejemplo eficsa, sin embargo como ejemplo didáctico esta muy bien ya que precisamente el éxito de Delphi es la VCL, la cual evita al programador entrar en esas "profundidades" o ¿porque algún programador querría desarrollar en delphi así? ¿Alguien con alma de mártir por ejemplo?

Saludos!

[[nlsgarcia]]

force1758,

...es posible crear un formulario, botón, edit etc. solo con APIs de Windows sin el componente VCL que trae el Delphi...

Revisa este link:

A guide to developing Delphi programs in Windows API (without the use of the VCL) : http://delphi.about.com/od/windowssh.../apicourse.htm

Espero sea útil

Nelson.

[ecfisa]

Empezado por movorack

Aunque no entiendo porque reinventar la rueda cuando tienes un ferrari disponible.

Empezado por FGarcia

Interesante ejemplo eficsa, sin embargo como ejemplo didáctico esta muy bien ya que precisamente el éxito de Delphi es la VCL, la cual evita al programador entrar en esas "profundidades" o ¿porque algún programador querría desarrollar en delphi así? ¿Alguien con alma de mártir por ejemplo?

Hola amigos.

Sin dudas que estoy de acuerdo con ustedes, sólo es un ejemplo de como Delphi puede hacerlo.

Saludos

[force1758]

Gracias a todos por responder a este tema que para mi es muy importante bueno con el ejemplo que me dieron quiesiera saber si lo puedo utilizar en una librería o en dll es tratado pero no logro ningun resultado espero q me puedan ayudar xD

Código Delphi [-]
library Project1;

uses
  Windows,
  Messages,
  SysUtils;

var
  Msg        : TMSG;
  LWndClass  : TWndClass;
  hMainHandle: HWND;
  hButton    : HWND;
  hStatic    : HWND;
  hEdit      : HWND;
  hFontText  : HWND;
  hFontButton: HWND;


procedure ReleaseResources;
begin
  DestroyWindow(hButton);
  DestroyWindow(hStatic);
  DestroyWindow(hEdit);
  DeleteObject(hFontText);
  DeleteObject(hFontButton);
  PostQuitMessage(0);
end;

function WindowProc(hWnd,Msg:Longint; wParam : WPARAM; lParam: LPARAM):Longint; stdcall;
begin
  case Msg of
      WM_COMMAND: if lParam = hButton then
                    MessageBox(hMainHandle,'You pressed the button Hello', 'Hello',MB_OK or MB_ICONINFORMATION);
      WM_DESTROY: ReleaseResources;
  end;
  Result:=DefWindowProc(hWnd,Msg,wParam,lParam);
end;

begin
  //create the window
  LWndClass.hInstance := hInstance;
  with LWndClass do
    begin
      lpszClassName := 'MyWinApiWnd';
      Style         := CS_PARENTDC or CS_BYTEALIGNCLIENT;
      hIcon         := LoadIcon(hInstance,'MAINICON');
      lpfnWndProc   := @WindowProc;
      hbrBackground := COLOR_BTNFACE+1;
      hCursor       := LoadCursor(0,IDC_ARROW);
    end;

  RegisterClass(LWndClass);
  hMainHandle := CreateWindow(LWndClass.lpszClassName,'Window Title', WS_CAPTION or WS_MINIMIZEBOX or WS_SYSMENU or WS_VISIBLE, (GetSystemMetrics(SM_CXSCREEN) div 2)-190,
      (GetSystemMetrics(SM_CYSCREEN) div 2)-170, 386,200,0,0,hInstance,nil);

  //Create the fonts to use
  hFontText := CreateFont(-14,0,0,0,0,0,0,0,DEFAULT_CHARSET,OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY,VARIABLE_PIT  CH or FF_SWISS,'Tahoma');
  hFontButton := CreateFont(-14,0,0,0,0,0,0,0,DEFAULT_CHARSET,OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY,VARIABLE_PITCH or FF_SWISS,'Tahoma');

  //create the static
  hStatic:=CreateWindow('Static','This is static text, like a TLabel',WS_VISIBLE or WS_CHILD or SS_LEFT, 10,10,360,44,hMainHandle,0,hInstance,nil);
  SendMessage(hStatic,WM_SETFONT,hFontText,0);

  //create the edit
  hEdit:=CreateWindowEx(WS_EX_CLIENTEDGE,'Edit','This a Edit like and TEdit', WS_VISIBLE or WS_CHILD or ES_LEFT or ES_AUTOHSCROLL,10,35,360,23,hMainHandle,0,hInstance,nil);
  SendMessage(hEdit,WM_SETFONT,hFontText,0);

  //create the button
  hButton:=CreateWindow('Button','Hello', WS_VISIBLE or WS_CHILD or BS_PUSHBUTTON or BS_TEXT, 10,130,100,28,hMainHandle,0,hInstance,nil);
  SendMessage(hButton,WM_SETFONT,hFontButton,0);

  //message loop
  while GetMessage(Msg,0,0,0) do
  begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;

end.



procedure DllMain(reason: integer);
begin 
   case reason of 
     DLL_PROCESS_ATTACH: 
     begin
  CreateThread(nil, 0, @WindowProc, nil, 0, 0);

     end;
     DLL_PROCESS_DETACH:
     begin
       // Unload Library 
     end; 
   end; 
end; (*DllMain*)

Gracias saludo