Camaradas,
Ola e boa sorte!
O desafio das Janelas do Delphi
Linguagem/Tema
Delphi
Nível
Intermediário
Regra(s)
OBS: qualquer coisa enviada desrespeitando as regras, não irei nem responder
O Problema
Em um teste de emprego para programador Delphi, você se depara com a seguinte solicitação:
O teste consiste na criação de uma classe no padrão abaixo:
Objetivo(s)
Escrever a classe e todas as funções necessárias para que seu teste seja bem sucedido e você consiga ser aceito como funcionário.
Referência(s)
Base estrutural da TWinBase:
| Delphi | | copy code | | ? |
| 01 | |
| 02 | type |
| 03 | TWinBase = class(TObject) |
| 04 | private |
| 05 | FHandle: HWND; |
| 06 | public |
| 07 | constructor Create; |
| 08 | destructor Destroy; override; |
| 09 | property Handle: HWND read FHandle write FHandle; |
| 10 | function WndProc(AHandle: HWND; AMsgCode: UINT; AWParam: WPARAM; |
| 11 | ALParam: LPARAM): Longint; virtual; stdcall; |
| 12 | end; |
| 13 |
Windows APIs:
| Delphi | | copy code | | ? |
| 01 | |
| 02 | function GetClassInfo(hInstance: HINST; lpClassName: PChar; |
| 03 | var lpWndClass: TWndClass): BOOL; stdcall; |
| 04 | |
| 05 | function RegisterClass(const lpWndClass: TWndClass): ATOM; stdcall; |
| 06 | |
| 07 | function UnregisterClass(lpClassName: PChar; hInstance: HINST): BOOL; stdcall; |
| 08 | |
| 09 | function CreateWindowEx(dwExStyle: DWORD; lpClassName: PChar; |
| 10 | lpWindowName: PChar; dwStyle: DWORD; X, Y, nWidth, nHeight: Integer; |
| 11 | hWndParent: HWND; hMenu: HMENU; hInstance: HINST; lpParam: Pointer): HWND; |
| 12 | |
| 13 | function DefWindowProc(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; |
| 14 |
Esse desafio se destina a todos que conhecem a linguagem Delphi e tem bom entendimento sobre as APIs de manipulação de Janelas.
As dúvidas e questionamentos podem ser postados aqui!
O primeiro que acertar, vou entrar em contato e disponibilizar um espaço aqui para que ele demonstre como fez.
Abraços.

