PopUp Menü öffnet nicht nach "Showmessage"

[Aliobaba]

... Danke!
Funktioniert aber leider auch nicht:

So nicht

Code: Alles auswählen

procedure TF_TagManip.Button1Click(Sender: TObject);
var
  P: TPoint;
begin
//  GetCursorPos(P);
  P:=Mouse.CursorPos;
  ShowMessage('sss');
  F_TagManip.Popup_Kuerzel_reduziert.PopUp(P.X, P.Y);
end;     

Und so auch nicht:

Code: Alles auswählen

procedure TF_TagManip.Button1Click(Sender: TObject);
begin
  ShowMessage('sss');
  F_TagManip.Popup_Kuerzel_reduziert.PopUp( 20 , 20 );
end;   

"ShowMessage" erscheint, das PopUp weiterhin nicht.
Wenn ich "ShowMessage" jeweils auskommentiere, dann funktionieren beide Versionen.

[fliegermichl]

Irgendetwas muß bei dir noch anders sein. Kannst du das Problem mal nachvollziehbar in ein kleines Demoprojekt packen und hier hochladen?

[wp_xyz]

... Danke!
Funktioniert aber leider auch nicht:

Sorry, aber da musst du jetzt durch: Fang klein an. Neues Projekt mit Button und PopupMenu, dein Code im Button.OnClick. Wenn es da funktioniert, liegt das Problem in deinem Projekt, wenn nicht, ist etwas oberfaul.

[Aliobaba]

Ja, gerne,

Ich hoffe, ich habe es korrekt exportiert.
-

Projekt__PopUp_export.zip

(2.27 KiB) 61-mal heruntergeladen

-

Es funktioniert auch in dieser Beispieldatei bei mir nicht.
Ob es wohl daran liegt, dass ich mit Linux arbeite?
Aber es kann doch kaum sein, dass so wenige Leute mit Linux arbeiten, dass so ein Fehler jahrelang nicht auffällt?? (Wenn es tatsächlich ein Bug sein sollte)

[wp_xyz]

Ob es wohl daran liegt, dass ich mit Linux arbeite?

Das hättest du auch früher sagen können. Ich schlage vor, dass Leute, die ihre Probleme unvollständig beschreiben, eine Spende an den Verein oder an die Lazarus-Stiftung überweisen...

Ich habe dein Programm gerade mit Ubuntu getestet, und, ja, kann das Verhalten nun bestätigen. Vorher war's auf Windows.

Für mich funktioniert es aber auch auf Ubuntu, wenn ich ein Application.ProcessMessages nach dem ShowMessage einfüge (gtk2, qt5). Offenbar hat Linux da etwas in der Warteschlange, das noch raus muss. Seltsam, aber das hattest du ja auch schon im Test...

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var
  P: TPoint;
begin
  //  GetCursorPos(P);
    P:=Mouse.CursorPos;
    ShowMessage('sss');
    Application.ProcessMessages;
    PopupMenu1.PopUp(P.X, P.Y);
end;

Ich glaube nicht, dass der Fehler schon früher hätte auffallen müssen, denn eine Messagebox anzuzeigen und unmittelbar darauf ein Popup, ist schon eine sehr ungewöhnliche Kombination.

[Aliobaba]

Das hättest du auch früher sagen können. Ich schlage vor, dass Leute, die ihre Probleme unvollständig beschreiben, eine Spende an den Verein oder an die Lazarus-Stiftung überweisen...

Wer denkt denn daran, dass Lazarus NICHT perfekt ist und dass Cross-compiling nicht zuverlässig funktioniert!

Machen wir es anders: Ich bleibe weiterhin treues Mitglied des Vereins auch wenn ich bezüglich meiner Programmierkenntnisse eher nicht zu Eurer Truppe passe.

Ich glaube nicht, dass der Fehler schon früher hätte auffallen müssen, denn eine Messagebox anzuzeigen und unmittelbar darauf ein Popup, ist schon eine sehr ungewöhnliche Kombination.

Ist es wirklich so total ungewöhnlich, dass man den User vor einer Wahl in einem Menü auf das eine oder andere hinweist??
Aber irgendwie freut es mich nun doch, dass ich eine - sagen wir - "Ungenauigkeit" im Programm gefunden habe.

Grüße an Alle!

[wp_xyz]

Das hättest du auch früher sagen können. Ich schlage vor, dass Leute, die ihre Probleme unvollständig beschreiben, eine Spende an den Verein oder an die Lazarus-Stiftung überweisen...

Wer denkt denn daran, dass Lazarus NICHT perfekt ist und dass Cross-compiling nicht zuverlässig funktioniert!

Machen wir es anders: Ich bleibe weiterhin treues Mitglied des Vereins auch wenn ich bezüglich meiner Programmierkenntnisse eher nicht zu Eurer Truppe passe.

Sorry, ich wollte nicht dich persönlich angehen. Aber wir verschwenden hier so viel Energie, Randbedingungen zu den Fragen herauszukriegen, die dem Fragesteller eigentlich klar sind, aber nicht erwähnt werden.

[sstvmaster]

Da muss ich wp Recht geben, hier und auch im englischen Forum immer das gleiche. Viele schreiben ihr OS, Bitness und verwendete Lazarus / FPC Version nicht mit in die Frage.

Es gibt ja im Forum die Möglichkeit im Profil oder in der Signatur seine Daten einzutragen.

[Aliobaba]

Hallo,

ich verstehe natürlich den Unmut hier. Aber natürlich wollte ich niemanden absichtlich im Unklaren lassen und so war mein erster Satz dieses Thread ja auch:

ich arbeite noch mit einer ziemlich alten Version: Version 1.8.4

Dass das Betriebssystem nach dem Compilieren so unterschiedliche Ergebnisse liefert, konnte ich ja nicht wissen, zumal ich in den letzten ca. 5 Jahren beim "cross compiling" keinerlei Probleme hatte. Und auch in der "Werbung" für Lazarus heißt es ja vollmundig: "Lazarus write once compile anywhere".

Also: Asche auf mein Haupt und entschuldigt bitte.
Und vielleicht stolpert ja irgendwann ein Entwickler von Lazarus über diesen Thread und fixt diese "Ungenauigkeit"; dann hatte das alles ja sein Gutes.

Schönes Wochenende!