Buttons verschwinden auf Tastendruck

[khh]

hallo zusammen,
ich habe folgendes "Phänomen":

Ein Programm hat diverse Tbuttons.
Teilweise befinden sich diese auf einem Tpagecontroll (TTabsheet), teilweise auf einem Tpanel.

Beim Versuch einen Screenshot zu erstellen passiert folgendes.
Nach dem Programmstart und beim Drücken der ALT-Taste werden die Buttons auf dem Tpagecontroll (TTabsheet)unsichtbar.

Mit dem Überfahren mit der Maus werden die Buttons wieder sichtbar.
Ein weiteres Drücken von ALT danach hat keine Auswirkung mehr.
Die Buttons auf dem Pannel sind nicht betroffen.

Im onkeyydown des Form werden zwar andere Tasten abgefragt, aber dort wird auf ALT nicht reagiert.
Wo kann ich den Fehler suchen?

Achtung: Lazarus unter WIN
Danke Gruss KHH

PS
. ich frag mal zus. im Lazforum nach.

[shmia]

Zitat von khh:

Teilweise befinden sich diese auf einem Tpagecontroll (TTabsheet), teilweise auf einem Tpanel.

Bist du sicher?
Manchmal befinden sich die Buttons auch auf dem Formular und es sieht nur so aus, als ob das TPageControl der Owner ist.
Das lässt sich in Delphi z.B. mit der ESC-Taste überprüfen.
Selektiert man einen Button und drückt dann ESC, dann wird der Parent, also z.B. das Tabsheet selektiert.

Aber wahrscheinlich hast du einen Bug entdeckt.

[khh]

Zitat von shmia:

Zitat von khh:

Teilweise befinden sich diese auf einem Tpagecontroll (TTabsheet), teilweise auf einem Tpanel.

Bist du sicher?
Manchmal befinden sich die Buttons auch auf dem Formular und es sieht nur so aus, als ob das TPageControl der Owner ist.
Das lässt sich in Delphi z.B. mit der ESC-Taste überprüfen.
Selektiert man einen Button und drückt dann ESC, dann wird der Parent, also z.B. das Tabsheet selektiert.

Aber wahrscheinlich hast du einen Bug entdeckt.

das mit der ESC-taste funktioniert in Lazarus auch.
Es bestätigt dass das tabsheet der Owner ist.

Gruss KHH

[Bummi]

Sind das "richtige" Buttons als von Wincontrol abgeleitet, ansonsten mal mit Doublebuffered im Form probieren.

[khh]

Zitat von Bummi:

Sind das "richtige" Buttons als von Wincontrol abgeleitet, ansonsten mal mit Doublebuffered im Form probieren.

ja, sind von TWinControl abgeleitet

[user0815]

Teste mal wenn Du diesen Code in das FormShow Event packst (ALT Taste auslösen)...

Code:

  keybd_event(VK_MENU , 0, 0, 0);
  keybd_event(VK_MENU , 0, KEYEVENTF_KEYUP, 0);

Kann es sein das Du diesen Effekt auch hast, wenn Du bei einer ComboBox zur Auswahl den Pfeil nach unten nimmst ?

[khh]

Zitat von user0815:

Teste mal wenn Du diesen Code in das FormShow Event packst (ALT Taste auslösen)...

Code:

  keybd_event(VK_MENU , 0, 0, 0);
  keybd_event(VK_MENU , 0, KEYEVENTF_KEYUP, 0);

Kann es sein das Du diesen Effekt auch hast, wenn Du bei einer ComboBox zur Auswahl den Pfeil nach unten nimmst ?

der Code hilft nix.
bei der Combobox tritt der Effekt nicht auf.

Gruss KHH

[Namenloser]

Hatte mal ein ähnliches Problem in Delphi (und hab's auch jetzt immer mal wieder). Dagegen hilft die Unit im Anhang. Vielleicht funktioniert sie ja auch unter Lazarus?

[khh]

Zitat von NamenLozer:

Hatte mal ein ähnliches Problem in Delphi (und hab's auch jetzt immer mal wieder). Dagegen hilft die Unit im Anhang. Vielleicht funktioniert sie ja auch unter Lazarus?

danke dir,
leider fehlt mir unter Lazarus die Unit AppEvnts.

Gruss KHH

[khh]

zu eurer Info

Ich habe jetzt den Parent des Buttons geändert, indem ich eine darunter liegendes Panel als Parent verwende.
damit funktionierts.

Gruss KHH