Hint überschreiben

[blackfin]

Ah, stimmt...er hat recht.
Das Mouseover funktioniert nicht mehr, sobald man Hint überschreibt.
Wenn man im Constructor die Property mit inherited überschreibt, gehts auch nicht.
Mal überlegen....

[DeddyH]

Funktioniert es so?

Delphi-Quellcode:

type
  TmyHintEdit = class(TEdit)
  private
    function GetHint: string;
    procedure SetHint(const value: string);
  published
    property Hint: string read GetHint write SetHint;
  end;

...

function TmyHintEdit.GetHint: string;
begin
  Result := inherited Hint;
end;

procedure TmyHintEdit.SetHint(const value: string);
begin  
  if not (csDesigning in ComponentState) then
    inherited Hint := value + ' Test'
  else
    inherited Hint := value;
end;

[MarcoWarm]

Wie ich die VCL kenne wird sicherlich innerhalb der Klasse auf den Hint nur über die private FHint-Variable verwiesen.

[blackfin]

Jup, sieht ganz so aus

[guinnes]

Beim MouseEnter Alten Hint merken, ergänzen
Beim MouseLeave Alten Hint zurückschreiben
Oder, wenn du z.B. beim überfahren der Items einer Listbox die Caption des Items als Hint haben möchtest :

Delphi-Quellcode:

procedure TForm1.ListBoxMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  item : integer;
  HS   : string;
  LB   : TListBox;
begin
  LB := Sender as TListbox;
  item := LB.itemAtpos(Point(x, y), true);
  if item >= 0 then
  begin
    HS := LB.Items.Strings[Item];
    if HS <> LB.Hint then
    begin
      LB.Hint := HS;
      Application.ActivateHint(Point(x, y));
    end;
  end;
end;

Lässt sich sicherlich auch auf andere Controls ausweiten ohne eine neue Klasse abzuleiten

[Rainer Wolff]

Zitat von guinnes:

Beim MouseEnter Alten Hint merken, ergänzen
Beim MouseLeave Alten Hint zurückschreiben

Das wars nun gar nicht, was ich wollte.
Inzwischen hab ich meinen Code in den Komponenten noch etwas hin und her geschoben und mache es so: Alle Komponenten, für die ich das ganze brauche (Abgeleitet von Shape, Label, Bitmap, Edit...) haben sowieso ein gemeinsames Interface.

Ich verwende ein TApplicationEvents-Objekt und in OnShowHint:

Delphi-Quellcode:

procedure TMainWindow.ApplicationEvents1ShowHint(var HintStr: string;
  var CanShow: Boolean; var HintInfo: THintInfo);
begin
  if Supports(HintInfo.HintControl, IMyInterface) then
  begin
    HintStr:=Hintstr+' '+(HintInfo.HintControl as IMyInterface).myZusatzHint;
  end;
end;

Aber ich wollte das ganze halt am liebsten in die Komponenten rein schieben, damit ich nicht in jedem Projekt im Hauptformular an den zitierten Code denken muss.
Da vermute ich jetzt einfach, dass es mit dem Hint überschreiben nicht geht, wenn nicht noch jemand eine geniale Idee hat.

Gruß Rainer

[himitsu]

Wieso muß man eigentlich einen eigenen Hint-Property erstellen?

Die VCL kennt nur "ihr" Property und nutzt auch dieses für die Anzeige.
Was sie nicht kennt, das kann die VCL nicht nutzen.