Forum: Win32/Win64 API (native code)
Delphi
by Luckie,
6. Jan 2007
:wall: :oops:
Na ja jeden falls geht es jetzt. Wenn ich den Code noch etwas aufgeräumt habe, werde ich es hier vorstellen. Fehlt eigentlich nur noch ein kleines Tool, was das Byte-Array für das Icon erstellt.
Forum: Win32/Win64 API (native code)
Delphi
by Luckie,
6. Jan 2007
Ich habe ihn doch zurückgegeben. :gruebel: Aber dein Code funktioniert. Besten Dank noch mal. Jetzt kan nich endlich das Projekt abschlieesen. Puh, war eine schwere Geburt. ;)
Forum: Win32/Win64 API (native code)
Delphi
by Luckie,
5. Jan 2007
Das SubClassen funktioniert. Wenn ich die Maus über das Formular bewege, bekomme ich die Nachricht 132, aber keine WM_MOUSEMOVE. Und wenn ich die Nachricht 132 abfangen, wird der Text kurz unterstrichen und ist dann wieder weg.
Forum: Win32/Win64 API (native code)
Delphi
by Luckie,
5. Jan 2007
So jetzt habe ich das Static ge-subclassed:
function LinkStcWndProc(hLinkStc, uMsg, wParam, lParam: DWORD): DWORD; stdcall;
var
LinkFont : HFONT;
EventTrack : TTrackMouseEvent;
begin
Result := 0;
case uMsg of
WM_MOUSELEAVE:
Forum: Win32/Win64 API (native code)
Delphi
by Luckie,
5. Jan 2007
Also das Static SubClassen. Ich hatte schon so etwas befürchtet.
Forum: Win32/Win64 API (native code)
Delphi
by Luckie,
5. Jan 2007
Ich versuche das auch gerade:
WM_MOUSELEAVE:
begin
WindowHover := False;
LinkFont := CreateFont(LINKFONTSIZE, 0, 0, 0, 400, 0, 0, 0, ANSI_CHARSET, OUT_DEFAULT_PRECIS,
CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH, LINKFONTNAME);
if LinkFont <> 0 then
SendDlgItemMessage(hDlg, ID_STC_WEB, WM_SETFONT, Integer(LinkFont),...