In der zeile der Menuebar einen Text anzeigen

[DelTurbo]

Wie kann ich in der zeile der Menuebar einen Text anzeigen. Also da steht b.z.

File Bearbeiten usw.

Und dahinter (bzw. daneben) möchte ich einen Text anzeigen. Geht das überhaupt???

Danke im voraus

[Bummi]

Einen MenuItem mit einem langen Dummytext erstellen, dieses Disablen , das Menü auf Ownerdraw setzen
und z.B.

Delphi-Quellcode:

procedure TForm2.MeinDummyMenueEintragDrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boolean);
begin
   Acanvas.Font.Color := clRed;
   Acanvas.TextOut(Arect.Left,Arect.Top,'Was auch immer ...');//TMenuItem(Sender).Caption);
end;

[DelTurbo]

Hi,
danke das klappt. Problem ist nur, da ich ein TAdvMainMenu habe, ist in er leiste oben ein kleiner Farbverlauf. Der wird dann "überschrieben".

[DeddyH]

Bringt SetBkMode evtl. etwas?

Delphi-Quellcode:

SetBkMode(ACanvas.Handle, TRANSPARENT);
Acanvas.TextOut(...);

[DelTurbo]

Jup, das geht. Der Text ist nun Transparent. Was ich aber gemerkt habe ist, das ab da ein wesentlich dunkeleres Grau "weiterläuft". Das bekomme ich nichtmal weg, wenn ich direkt ein exit; mache. Das geht nur weg, wenn ich das (OnDraw) im Objekt nicht eintrage.

Wird wohl TAdv-Spezifisch sein

Trotzdem danke an euch

EDIT: Bild hinzugefügt