Find Window und FindForm

[Cylence]

Hi,

ich hab einige Menuitems die nur eine Form anzeigen on Click also nur FormXYZ.Show;
Jetzt hab ich mir gedacht wär doch einfacher ich mach nur eine Prozedur für alle... und geb den Namen der Form als Hint beim Menuitem ein, damit würde ich mal wieder einen haufen sparen... aber es mag leider nich so ganz wie ich will...

Delphi-Quellcode:

procedure TForm1.Gargle2Click(Sender: TObject);
var
  ClassName : PAnsiChar;
  WindowName : PAnsiChar;
begin
  WindowName := PChar((Sender as TMenuitem).Hint);
  ClassName := PChar('T'+ (Sender as TMenuitem).Hint);   
  FindForm(FindWindow(ClassName,WindowName)).Show;
  //frmDVDDMOGargle.Show;
end;

Ich krieg nur eine Zugriffsverletzung... aber Syntax passt ebenfalls hab ich Klassennamen und WindowName korrekt im Debugger also TfrmDVDDMOGargle und frmDVDDMOGargle aber findWindow funzt nicht... FindWindow gibt immer 0 zurück

kennt sich einer von euch damit aus?