Untermenü in TToolbar funktioniert nicht

[DiBo33]

Untermenü in TToolbar funktioniert nicht

Hallo,
folgendes zum Nachvollziehen:

- Neue Applikation erstellen
- Hauptmenü einsetzen
- unter MenuItem1 "Erzeuge Untermenü"
- unter MenuItem2 "Erzeuge Untermenü"
- unter MenuItem3 "Neuen Eintrag einfügen (dahinter)" (insg. 3x)
- Ereignis von MenuItem3 bis MenuItem6 auf die Procedure MenuItemClick setzen

Code: Alles auswählen

procedure TForm1.MenuItemClick(Sender: TObject);
begin
  ShowMessage(TMenuItem(Sender).Name);
end;

- Eine Toolbar einsetzen
- "New Button" mit den Eigenschaften:
- MenuItem: MenuItem2
- Style: tbsDropDown

Der DropDown-Pfeil wird angezeigt und beim Click auch das entsprechende Untermenü,
soweit ist also alles ok.

Nur wenn ich jetzt auf ein Menüpunkt innerhalb des DropDown klicke wird die Procedure MenuItemClick nicht ausgeführt,
dies passiert nur unter win32 so, unter GTK2 klappt alles wie gewünscht.

Hat jemand eine Ahnung, wie ich das Verhalten auch unter win32 hinbekommen könnte?

WinXP SP2, Lazarus 0.9.27 FPC 2.2.3
Ubuntu 8.04, Lazarus 0.9.27 FPC 2.2.2

[Euklid]

dies passiert nur unter win32 so, unter GTK2 klappt alles wie gewünscht.

Hat jemand eine Ahnung, wie ich das Verhalten auch unter win32 hinbekommen könnte?

Hallo,

habe leider kein Windows um den Fehler nachzuvollziehen - hört sich aber alles nach einem Bug im win32-widgetset an.

Würde also einen Bugreport

http://bugs.freepascal.org/view_all_bug_page.php" onclick="window.open(this.href);return false;

mit dieser Beschreibung oder mit einem Beispielprojekt erstellen.

Viele Grüße, Euklid