Messiah_of_Death
13.06.2002, 23:29
Hallo,
diese Funktion... ich krieg die net unter Kontrolle..
der Code der funktioniert bestens, WENN ..ich den in der VCL benutze ... aber net in der API !!! :(
die Zeile InitCommonControlsEx(iccex) die is das rote in meiner Sahnesuppe ! ... :mauer: :mauer: :mauer:
das heißt .. die liefert true in der VCL .. aber false in der WinAPI ..
ich hab kein Schimmer warum... (würd ja gern in der VCL coden.. hab aber irgendwie kein schimmer wie ich die WSAxxx dann zum laufen bekomme.. die braucht den lparam und wparam.. aber die hab ich da nicht ~_~ und die komponenten krieg ich net zum laufen )
hat jemand ne Ahnung ????! ..ich hab in der Api an folgenden Stellen gestellt (geht jetzt nur um das Init-dingsda)
WM_CREATE
nach RegisterClass
vor RegisterClass
nach createwindow (das Hauptfenster)
vor hEdit = createblabla...
wäre echt dankbar :D
also denn
DANKE
var
iccex : TInitCommonControlsEx;
hEdit : HWND;
begin
iccex.dwICC := ICC_INTERNET_CLASSES;
iccex.dwSize := sizeOf(TInitCommonControlsEx);
InitCommonControlsEx(iccex);
hEdit := CreateWindow(WC_IPADDRESS,
'',
WS_CHILD or WS_VISIBLE,
10, // x-Coord
50, // y-Coord
125, // Breite
20, // Höhe
Handle, // Parent - Handle
0,
hInstance,
0);
end;
diese Funktion... ich krieg die net unter Kontrolle..
der Code der funktioniert bestens, WENN ..ich den in der VCL benutze ... aber net in der API !!! :(
die Zeile InitCommonControlsEx(iccex) die is das rote in meiner Sahnesuppe ! ... :mauer: :mauer: :mauer:
das heißt .. die liefert true in der VCL .. aber false in der WinAPI ..
ich hab kein Schimmer warum... (würd ja gern in der VCL coden.. hab aber irgendwie kein schimmer wie ich die WSAxxx dann zum laufen bekomme.. die braucht den lparam und wparam.. aber die hab ich da nicht ~_~ und die komponenten krieg ich net zum laufen )
hat jemand ne Ahnung ????! ..ich hab in der Api an folgenden Stellen gestellt (geht jetzt nur um das Init-dingsda)
WM_CREATE
nach RegisterClass
vor RegisterClass
nach createwindow (das Hauptfenster)
vor hEdit = createblabla...
wäre echt dankbar :D
also denn
DANKE
var
iccex : TInitCommonControlsEx;
hEdit : HWND;
begin
iccex.dwICC := ICC_INTERNET_CLASSES;
iccex.dwSize := sizeOf(TInitCommonControlsEx);
InitCommonControlsEx(iccex);
hEdit := CreateWindow(WC_IPADDRESS,
'',
WS_CHILD or WS_VISIBLE,
10, // x-Coord
50, // y-Coord
125, // Breite
20, // Höhe
Handle, // Parent - Handle
0,
hInstance,
0);
end;