1400 Error beim Erstellen eines Fensters via API

[himitsu]

Zitat von Mangafreak1995:

Ich habe schon vorher die MSDN konsultiert, aber die gibt mir leider nur das gleiche wie die SysErrorMessage(GetLastError)-Funktion.

Und demnach stimmt wohl irgendein Handle (HWND) in Self.windowClass oder in den Parametern des CreateWindow nicht.

[Luckie]

Vermischt du da irgend wie VCL und nonVCL?

[Mangafreak1995]

Zitat von himitsu:

Zitat von Mangafreak1995:

Ich habe schon vorher die MSDN konsultiert, aber die gibt mir leider nur das gleiche wie die SysErrorMessage(GetLastError)-Funktion.

Und demnach stimmt wohl irgendein Handle (HWND) in Self.windowClass oder in den Parametern des CreateWindow nicht.

Deswegen bin ich ja hier. Ich weiß nicht welcher Parameter falsch ist.

Zitat von Luckie:

Vermischt du da irgend wie VCL und nonVCL?

Ich hoffe nicht. Mehr wie ihr schon wisst, ist da nicht. Nur die 2 Dateien (teilweilse oben gepostet) existieren und nur "Windows, Messages, inifiles, SHFolder, SysUtils" sind in der externen Uses-Liste.

[EWeiss]

grmmm...

Du erstellst ein Window mit einem Handle das schon existiert?
self.hwnd

und auch noch mit einer existierenden Classe?
self.windowClass

gruss

[Mangafreak1995]

Zitat von EWeiss:

grmmm...

Du erstellst ein Window mit einem Handle das schon existiert?
self.hwnd

und auch noch mit einer existierenden Classe?
self.windowClass

gruss

Die werden in der Show-Procedure erst initialisiert.

[EWeiss]

Für mich sieht das aus wie Luckie schon sagt
Da wird versucht von TForm (existierendes Window) ein neues Window zu erstellen.

Kann mit den bißchen Quelltext ohne zu sehen wie die Classe aufgebaut ist.
Auch nur Raten.

gruss

[Mangafreak1995]

Zitat von EWeiss:

Für mich sieht das aus wie Luckie schon sagt
Da wird versucht von TForm (existierendes Window) ein neues Window zu erstellen.

Kann mit den bißchen Quelltext ohne zu sehen wie die Classe aufgebaut ist.
Auch nur Raten.

gruss

Entschuldigung, die Klasse erbt von gar nichts. Definition:

Delphi-Quellcode:

type
  TSForm = class
  private
    hwnd : HWND;
    windowClass : TWndClass;
    w, h : Integer;
    function getAppData() : String;
    procedure init();
    procedure finale();
    procedure keypress(c : Char);
    procedure ShowError(ErrorText: PChar);
  published
    function WindowProcedure(HWND: HWND; uMsg: UINT; wParam: wParam; lParam: lParam): lResult; stdcall;
  public
    appName : String;
    constructor Create();
    procedure Show();
    destructor Close();
  end;

[EWeiss]

Wenn du dich ja schon in der Classe befindest
procedure TSForm.Show();

warum dann noch überall self. ?
mach das mal weg und versuche es einfach mal mit hwnd :=

also alle self.xx entfernen.

gruss