|
Registriert seit: 21. Jul 2004
Ort: Ostfildern
1.095 Beiträge
Delphi 10.2 Tokyo Starter
|
Re: Passwort Generator
18. Mai 2008, 14:31
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]
|