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.