Home » Tutorials » Systemnahe Programmierung » Editor ohne VCL

Editor ohne VCL

Erzeugen und Anzeigen des Hauptformulars

program Editor;

Einbinden der Ressourcen-Datei

{$R mainc2.res}

Benutzte Units

uses windows, messages;

Variable für der Rückgabewert der Funktion DialogBpxParam

var hdlg : DWORD = 0;

Nachrichtenschleife für das Hauptformular
WM_CLOSE wiird aufgerufen, wenn das Programm beendet werden soll EndDialog() beendet das Programm. Parameter: Handle auf das zu beendende Fenster; Rückgabewert

{Nachrichtenschleife für das Hauptformular}
function DlgEditorFunc(hWnd: hWnd; uMsg: dword; wParam: wParam;
  lParam: lParam): bool; stdcall;
begin
  result := true;
  case uMsg of
    {WM_CLOSE: Beenden das Programmes}
    WM_CLOSE: EndDialog(hWnd, 0);
    {???}
    WM_DESTROY: PostQuitMessage(0);
    else result := false;
  end;
end;

Initialisieren des Hauptformulares aus der Res-Datei int DialogBoxParam(Handle auf die Anwendungs-Instanz, Identifizierer in der Res-Datei, Handle auf das Owner-Window, Zeiger auf die zugehörige DialogBox-Prozedur, Initialisierungwert

{Initialisieren des Formulares aus der Res}
begin
  {The MAKEINTRESOURCE macro converts an
  integer value to a resource type compatible with Win32
  resource-management functions. This macro is used in place
  of a string containing the name of the resource.}
  hdlg := DialogBoxParam(HInstance, MAKEINTRESOURCE(100), 0,
   @DlgEditorFunc, 0);
end.