Hint als Schatten in TEdit?

[Mackhack]

Hallo DPler,

gibts eine Moeglichkeit mit BDS2006 unter WinXP ein Feature zu entwickeln das in einem Editfeld so eine Art Schatten anzeigt als Hint und sobald der User reinklickt oder das Control den Focus bekommt dass dann der Hint verschwindet?

[Hansa]

Am besten : schreibs selber. Das geht. :mrgreen: Spontan fällt mir ein Panel ein. X,Y, Farbe, Parent das Edit und fertig. Idee ist nicht schlecht. Die Hints sind Scheiße. :mrgreen:

[Mackhack]

Zitat:

Zitat von Hansa

Am besten : schreibs selber. Das geht. :mrgreen: Spontan fällt mir ein Panel ein. X,Y, Farbe, Parent das Edit und fertig. Idee ist nicht schlecht. Die Hints sind Scheiße. :mrgreen:

Idee gut, Hints schlecht? Wie ist denn das zu verstehen? 8)

[Hansa]

Die vorhandenen Hints sind schlecht. Die Idee, sie zu verbessern ist gut, Rest bitte als PN. Mir schwebt da was vor.

[mkinzler]

^Warum sollte das für die Öffentlichkeit nicht auch interessant sein?

[Luckie]

So sollte es gehen:

Delphi-Quellcode:

function Edit_SetCueBannerText(hEdit: HWND; lpcwText: PWideChar): bool;
const
  ECM_FIRST         = $1500; // Edit control messages
  EM_SETCUEBANNER   = ECM_FIRST + 1;
begin
  Result := Bool(SendMessage(hEdit,EM_SETCUEBANNER,0,LPARAM(lpcwText)));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Edit_SetCueBannerText(Edit1.Handle, 'Mein Text') then
    ShowMessage(SysErrorMessage(GetLastError));
end;

Wichtig ist noch:

Zitat:

To use this API, you must provide a manifest specifying Comclt32.dll version 6.0.

Ich habe ein entsprechendes Manifest als Ressourcenskript angehangen.

[Mackhack]

Luckie,
ich hab mal das XPManifest von Delphi auf die Form gezogen will aber noch nicht. Wie binde ich denn deine File mit ein?

[Luckie]

Delphi-Quellcode:

{$R manifest.res}

[Sharky]

Zitat:

Zitat von Luckie

Delphi-Quellcode:

{$R manifest.res}

:gruebel: Dann musst Du aber auch die XML beilegen? Sonst kann man die RC ja nicht kompilieren. Oder?

[Mackhack]

Aber muss ich die net noch vorher mit brcc32 compilieren? Und das schlaeg fehl!

@Roter Kasten: Japp genau das ist passiert. Wo muss die xml dann noch hin?

[Luckie]

Äh ja. Kommt. Wird nachgeliefert. :oops:

[Mackhack]

Hm,

tut das jetz in einem VCL Demo oder nicht? Bei mir jedenfall passiert nichts wenn ich auf den Button klicke oder von Control zu Control wechsel.

[Luckie]

OK, lauffähige Demo im Anhang.

@Mackhack: Wurde das Ressourcenskript auch richtig kompiliert? Du musst da natürlich noch den Pfad zur XML-Datei anpassen.

[Sharky]

Hai,

nach dem ich den relativen Pfad aus der .rc entfernt habe konnte ich die .res erzeugen und es scheint alles zu funktionieren.

[Hansa]

Zitat:

Zitat von mkinzler

^Warum sollte das für die Öffentlichkeit nicht auch interessant sein?

Ne, uninteressant. :mrgreen: Unvollendete "Gemeinschftsprojekte" gibt es genug. :-D

[Mackhack]

Zitat:

Zitat von Luckie

OK, lauffähige Demo im Anhang.

@Mackhack: Wurde das Ressourcenskript auch richtig kompiliert? Du musst da natürlich noch den Pfad zur XML-Datei anpassen.

Ja hab beide Files in das Projektverzeichnis kopiert, compiliert, und app compiliert. Aber nix zu sehen :-(

//Edit: Ich hab vergessen den -fo Schalter zu verwenden beim compilieren der res file... My bad! Funzt Tadellos!