Passwort Generator

[FAlter]

Ja,

weil ein Handle je nach Delphiversion unsigned ist. (Früher wars afaik anders.)

Delphi-Quellcode:

        if hFont1 <> 0 then
          begin
            SendMessage(hWndCBex, WM_SETFONT, Integer(hFont1), 0);
            SendMessage(hWndPanel1, WM_SETFONT, Integer(hFont1), 0);
            SendMessage(hWndLabel1, WM_SETFONT, Integer(hFont1), 0);
            SendMessage(hWndLabel2, WM_SETFONT, Integer(hFont1), 0);
            SendMessage(hWndLabel3, WM_SETFONT, Integer(hFont1), 0);
            SendMessage(hWndLabel4, WM_SETFONT, Integer(hFont1), 0);
            SendMessage(hWndLabel5, WM_SETFONT, Integer(hFont1), 0);
            SendMessage(HWNDButton1, WM_SETFONT, Integer(hFont1), 0);
            SendMessage(hWndSpinButton1, WM_SETFONT, Integer(hFont1), 0);
            SendMessage(hWndEdit1, WM_SETFONT, Integer(hFont1), 0);
            SendMessage(hWndEdit2, WM_SETFONT, Integer(hFont1), 0);
          end;

Ähnliches gilt für die X/Y-Parameter der Gemüsezwiebel:

Delphi-Quellcode:

CreateWindowEx(
  0,
  ClassName,
  AppName,
  WS_CAPTION or WS_VISIBLE or WS_SYSMENU or WS_MINIMIZEBOX,
  Integer(CW_USEDEFAULT),
  Integer(CW_USEDEFAULT),
  WindowWidth,
  WindowHeight,
  0,
  0,
  hInstance,
  nil
);

Wobei hier wohl die Konstanten falsch gesetzt wurden.

Oder du stellst RangeChecks aus. Typecasts find ich aber sinnvoller, weil man sich da Gedanken gemacht hat. Bei RangeChecks gehen auf andere Fehler unter, sollte nur in der Final raus (Speed).

Mfg
FAlter

[edit] Fast vergessen: Altbekanntes Problem!
Man kann Buchstaben eingeben. [/edit]

[edit] Passworlänge ist ein Schreibfehler. [/edit]