Kurze Nachrichten wie Toast Messages in Android

[Getox]

Hallo,

ich habe eine VCL-Anwendung und suche eine Möglichkeit einzeilige Nachrichten anzuzeigen, die nach kurzer Zeit wieder verschwinden - in Form und Funktion wie Toast-Messages in Android. Diese Nachrichten sollen nach Möglichkeit recht frei positionierbar sein und wenn möglich farblich anpassbar sein.

Hat jemand eine Idee, was ich da machen könnte?

[himitsu]

Es gibt das als Fremdkomponenten mit mehr/besseren Anpasungsmöglichkeiten
und Delphi nennt sich diese Komponente BalloonHint.

[Getox]

Ich danke für den Tipp. ich habe versucht den Balloonhint abzuleiten (habe vorher noch nie eine Komponente abgeleitet), bin aber wohl zu blöd dafür.

Der normale Balloonhint greift in der Funktion "PaintHint" auf Canvas zu. In meiner abgeleiteten Version kann ich das nicht, weil Canvas ein undeklarierter Bezeichner ist.

Vom Positionieren her und von der grundfunktionalität her ist der Balloonhint genau was ich brauche. Ich möchte nur die Hintergrundfarbe und die Schrift noch ändern können.

Code:

unit yxBalloonHint;

interface

uses
  System.SysUtils, System.Classes, Vcl.Controls;

type
  TyxBalloonHint = class(TBalloonHint)
  private
    { Private-Deklarationen }
  protected
    procedure PaintHint(HintWindow: TCustomHintWindow); override;
  public
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('meineFirma', [TxyBalloonHint]);
end;

{ TxyBalloonHint }

procedure TxyBalloonHint.PaintHint(HintWindow: TCustomHintWindow);
begin
  Canvas.Brush.Color := clHighlight;
  inherited;
end;

end.

Ich habe mit ein neues Package erzeugt, diese Unit hinzugefügt und wie gesagt: Canvas kennt er nicht.

[mikhal]

Die BallonHint-Komponente kapselt lediglich ein Windows-Feature, das ab Vista vorhanden ist. Da kannst du über die Komponente weder Schrift noch Farbe ändern.

Grüße
Mikhal

[ernschd]

Wir verwenden hierzu die TAdvSmoothPopup-Komponente von TMS mit angepasstem Aussehen.