Non-VCL Fensterklasse

[Neutral General]

Hi,

Ich versuche mir grad eine Klasse zu bauen die mir das erstellen von Fenstern ohne die VCL vereinfachen soll.
Das Problem ist das ich das Fenster nicht zu Gesicht bekomme. Beim WndProc kommt auch soweit ich das nachverfolgen konnte nie ein WM_CREATE an.

Delphi-Quellcode:

unit uNCVLClasses;

interface

uses Windows, Messages, SysUtils;

type
  TWndProc = function (wnd: HWND; uMsg: UINT; wp: WPARAM; lp: LPARAM): LRESULT of Object; stdcall;

  TNVCLControl = class
  private
    FHandle: THandle;
    FID: HMENU;
  public
    property Handle: THandle read FHandle;
    property ID: HMENU read FID;
  end;

  TNVCLForm = class(TNVCLControl)
  private
    wc: TWndClassEx;
    FWndProc: TWndProc;
    function WndProc(wnd: HWND; uMsg: UINT; wp: WPARAM; lp: LPARAM): LRESULT; stdcall;
  public
    constructor Create(x,y,width,height: Cardinal);
  end;

var
  frmCount: Integer = 1;

implementation

{ TNVCLForm }

constructor TNVCLForm.Create(x, y, width, height: Cardinal);
begin
  FWndProc := WndProc;
  with wc do
  begin
    cbSize := SizeOf(TWndClassEx);
    lpfnWndProc := @FWndProc;
    hInstance := SysInit.hInstance;
    hbrBackground := COLOR_APPWORKSPACE;
    lpszClassName := Pchar('wnd' + IntToStr(frmCount));
  end;
  RegisterClassEx(wc);
  inc(frmCount);
  FHandle := CreateWindowEx(0,wc.lpszClassName,'Test',
                            WS_VISIBLE or WS_CAPTION or WS_SYSMENU or WS_SIZEBOX,
                            x,y,width,height,0,FID,hInstance,nil);
end;



function TNVCLForm.WndProc(wnd: HWND; uMsg: UINT; wp: WPARAM;
  lp: LPARAM): LRESULT;
begin
  Result := 0;
  case uMsg of
    WM_CREATE:  begin
                  // nix
                end;
    WM_DESTROY: begin
                 PostQuitMessage(0);
                end;
    else Result := DefWindowProc(wnd, uMsg, wp, lp);
  end;
end;

end.

Gruß
Neutral General

[Zacherl]

Mh nonVCL und SysUtils .. irgendwie nicht so effektiv .. :D

[Neutral General]

Mh ok das ist vielleicht ein Argument aber es hilft nichts wenn ich die SysUtils aus den Uses nehme.

Andere Vorschläge?

[Luckie]

Wie soll er da auch ankommen? Du rufst sie ja nie auf bzw. du gibst in der Fensterklassenstruktur nur eine Variable vom Typ TWndProc an aber nicht die Funktion. Btw wird das auc nicht so eiinfach gehen. Eine Methode hat immer noch den unichtbaren Self-Parameter, aber die WndProc erwartet die Parameter wnd: HWND; uMsg: UINT; wp: WPARAM; lp: LPARAM und der zusätzliche Self-Parameter von der Methode zerschiesst dir jetzt deine WndProc.

So was habe ich übrigens schon gemacht für Dialog-Ressourcen: http://www.delphipraxis.net/internal...ghlight=dialog

[Neutral General]

Mh hab mir den Dialog runtergeladen, werde aber nicht schlauer. Das Problem ist halt das ich en Methodenpointer habe. Wie wandel ich das jetzt um, bzw. was soll ich machen? Konnte aus deinen Hinweisen leider nichts machen.

[sirius]

Du musst für jede Objetkinstanz eine Funkktion in den Hauptspeicher zu Laufzeit implementieren (so wie hier)

Edit: Für die VCL macht das übrigens die Classes.MakeObjectinstance.

[Luckie]

Zitat:

Zitat von Neutral General

Mh hab mir den Dialog runtergeladen, werde aber nicht schlauer.

Dann solltest du dir auch mal den Sourceode angucken. Und in der Readme befindet sich ein Link, wie es funktioniert.

[Neutral General]

Hi,

Danke es hat funktioniert :) Werde morgen mal gucken das ich verstehe wies funktioniert.

Gruß
Neutral General

[Zacherl]

Aber interessantes Konzept. Würde mich freuen, wenn du deine Unit irgendwann hier vorstellen würdest. :)

[jbg]

Zitat:

Zitat von Zacherl

Mh nonVCL und SysUtils .. irgendwie nicht so effektiv .. :D

Wieso? Er will ja kein nonRTL Programm, sondern ein nonVCL Programm.