Transparent Edit

[EWeiss]

Hab ne transparente Edit erstellt

Delphi-Quellcode:

  FHEdit := CreateWindowEx(WS_EX_TRANSPARENT, 'EDIT', 'Was nun?', WS_VISIBLE or
    WS_CHILD, x, y, xW, yH, hOwner, EditID, SkinEngine.skInstance, nil);

Das Problem ist nun das mir einfach nicht der richtige Text angezeigt wird in dem Fall also "Was nun?"

Delphi-Quellcode:

var
  buffer:  array[0..1024] of Char;
  Text:    PWideChar;
begin
  SendMessage(WinHandle, WM_GETTEXT, sizeof(buffer),
    Integer(@buffer));

  Text := buffer;
...

Hab ich was am Kopf? Scheint so!

gruss