AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Tooltip akzeptiert kein WideString

Ein Thema von blablab · begonnen am 24. Aug 2014 · letzter Beitrag vom 25. Aug 2014
Antwort Antwort
blablab

Registriert seit: 3. Jan 2006
507 Beiträge
 
Delphi 7 Enterprise
 
#1

Tooltip akzeptiert kein WideString

  Alt 24. Aug 2014, 22:39
Hallo!

Ich benutze Delphi7 das ja noch keine echte Wide-Unterstützung hat und hätte gerne einen Tooltip, der einen WideString anzeigen kann. Dazu benutze ich folgenden Code:

Delphi-Quellcode:
var
   toolTip: HWND;
   toolInfo: TOOLINFOW;


function CreateToolTip(hControl: HWND; text: PWideChar): HWND;
const
   TOOLTIPS_CLASSW: PWideChar = 'tooltips_class32';
begin
   Result := CreateWindowExW(
         WS_EX_TOPMOST, TOOLTIPS_CLASSW, '',
         WS_POPUP or TTS_NOPREFIX or TTS_ALWAYSTIP,
         CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,
         0, 0, HInstance, nil);
   if Result <> 0 then begin
      with toolInfo do begin
         cbSize := SizeOf(toolInfo);
         uFlags := TTF_SUBCLASS or TTF_IDISHWND;
         uId := hControl;
         hInst := HInstance;
         lpszText := text;
         lParam := 0;
      end;
      SendMessageW(Result, TTM_ADDTOOL, 0, LPARAM(@toolInfo));
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   toolTip := CreateToolTip(TntDrawGrid1.Handle, 'test');
end;
Trotzdem will der Tooltip nur AnsiStrings akzeptieren, bei einem WideString wird nur das erste Zeichen angezeigt...

Was mache ich falsch?

Grüße
blablab
  Mit Zitat antworten Zitat
blablab

Registriert seit: 3. Jan 2006
507 Beiträge
 
Delphi 7 Enterprise
 
#2

AW: Tooltip akzeptiert kein WideString

  Alt 24. Aug 2014, 23:27
Du musst statt TTM_ADDTOOL TTM_ADDTOOLW verwenden!

Geändert von blablab (25. Aug 2014 um 01:01 Uhr)
  Mit Zitat antworten Zitat
blablab

Registriert seit: 3. Jan 2006
507 Beiträge
 
Delphi 7 Enterprise
 
#3

AW: Tooltip akzeptiert kein WideString

  Alt 24. Aug 2014, 23:28
Danke!
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
40.107 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: Tooltip akzeptiert kein WideString

  Alt 25. Aug 2014, 00:59
Erstmal kann Delphi 7 Unicode umgehen.
Dort gibt es den WideString (der eine OleAuth-API kapselt und ab Delphi 2009 gibt es dann den nativen Delphi-UnicodeString).

Ach ja, nicht wundern, wenn dennoch deine Unicode-Komponenten nicht überall richtig funktionieren, denn die Nachrichtenbehandlung ist ja dennoch nur ANSI. (außer man tauscht die MessageLoop aus)
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014

Geändert von himitsu (25. Aug 2014 um 01:02 Uhr)
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:53 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf