[Großer TD-Bug] Buttons verschwinden bei Druck auf Strg+Alt

[Jacques Murell]

Moin,

ich habe hier ein sehr großes Problem. Mein System:
Turbo Delphi (+ alle Updates)
Windows Vista 64bit

In meinem Programm - und alle Beispielprojekten die ich gebastelt hab (Fehler ist also reproduzierbar) - tritt folgendes Problem auf: Ich habe Standardkomponenten (Buttons, Labels, RichEdits, TWebbrowser und ein TrsPanel) auf meinem Formular, die Unit XPMan ist eingebunden.

Es sind keinerlei Shortcuts oder so gesetzt. Drückt der User nun Strg+Alt, verschwinden die Buttons im Nirvana. Ich habe keine Ahnung woran das liegen kann und die Sache ist sehr sehr unschön. Im Anhang mal ein Video davon, ich mache wirklich nichts anderes als Strg+Alt zu drücken und da sich nur Komponenten auf der Form befinden kann es auch nicht an meinem Code liegen da ich in dem Beispielprojekt keine Zeile geschrieben habe.

Hat irgendjemand eine Ahnung wie ich das beheben kann? :-(

Und sorry wegen der Musik im Hintergrund des Videos, wurde ausversehen mit aufgenommen.

[Luckie]

Das Problem kommt mir irgendwie bekannt vor. Ich glaube, das hatten wir hier schon mal. Bemühe doch mal die Suche bitte. Vielleicht findest du was.

[Jacques Murell]

Das habe ich vorm Threaderstellen gemacht, gefunden habe ich leider nichts.

[Bernerbaer]

http://cc.embarcadero.com/item/24282
oder
http://qc.embarcadero.com/wc/qcmain.aspx?d=37403

[Jacques Murell]

Super hat geklappt, vielen vielen Dank. :thumb:

[Jacques Murell]

Ich nehm alles zurück, das gibts doch gar nicht. Jetzt bleiben die Buttons da aber das RichEdit verschwindet. :evil:

[Jacques Murell]

Noch jemand eine Idee? Mein Programm ist somit praktisch unbenutzbar wenn dauernd Controls wie das RichEdit verschwinden. :|

[Jacques Murell]

Ein verzweifelter letzter Versuch ob jemand eine Ahnung hat. Das Verhalten tritt nicht nur bei Alt auf sondern auch wenn man die Tabulator-Taste drückt. In dem Zustand kann ich leider kein Programm veröffentlichen. :-(

[Jacques Murell]

Das Problem besteht leider weiterhin...

[himitsu]

Nee, hab auch keine hilfreiche Lösung und mit einigen Delphi-7-Programmen ähnliche Probleme. (mein TDE vergammelt in der Ecke, da nutzloser als D7)


Die offizielle funktionierende Lösung: kauf dir das Bugfix (D2009+)

[jaenicke]

Zitat:

Zitat von himitsu (Beitrag 1115423)

mein TDE vergammelt in der Ecke, da nutzloser als D7

Bei mir hat es jahrelang gute Dienste geleistet. ;-)

Ich hatte den VCL-Quelltext modifiziert und das Problem war weg. Wie das geht steht ja in dem Link oben. Hattest du das auch versucht oder nur den fertigen Fix?

[Jacques Murell]

Ich habe alle Änderungen manuell eingepflegt, in der Controls.pas und StdControls.pas, alles neu kompiliert, dcu's wurden neu erstellt und geändert hat sich NICHTS. :cry: Ein ähnliches Problem trifft nun auch auf den TWebbrowser zu, es kann doch nicht sein das man das Problem nicht lösen kann. Ich kann doch so das Programm nicht an den Kunden ausliefern. :(

[Namenloser]

Ich hab hier noch diese Unit herumfliegen (nicht von mir), die das Problem behebt. Vielleicht hilft sie dir ja.

[Jacques Murell]

Heyho, danke aber das sieht mir stark nach der Unit aus dem EDN aus, die habe ich schon am Laufen und sie verhindert auch das die Buttons verschwinden aber wie gesagt nicht das das Richedit verschwindet...

[Namenloser]

Zitat:

Zitat von Jacques Murell (Beitrag 1116254)

Heyho, danke aber das sieht mir stark nach der Unit aus dem EDN aus, die habe ich schon am Laufen und sie verhindert auch das die Buttons verschwinden aber wie gesagt nicht das das Richedit verschwindet...

Äh sorry, hab ich nicht gesehn. Bei EDN muss man sich ja erst einloggen, um was runterladen zu können.

Hast du mal versucht, den Code anzupassen?

Delphi-Quellcode:

    // repaint only controls of affected type
    if (TheCtrl is TButtonControl) or (TheCtrl is TStaticText) then
    begin
      TWinControl(TheCtrl).Repaint;
      exit; // TButtonControls, TStaticText do not contain controls so skip rest
    end;

    // NEU: -----------------------------------------------------------------
    if (TheCtrl is TCustomRichEdit) then
    begin
      TCustomRichEdit(TheCtrl).Repaint;
      exit; // TCustomRichEdit does not contain controls so skip rest
    end;
    // /NEU: ----------------------------------------------------------------

[Jacques Murell]

Heyho, dass hat leider nichts bewirkt. Füge ich weiter unten noch ein:

Delphi-Quellcode:

 procedure DoRepaint(Ctrl: TControl);
  var
    i: integer;
  begin
    if (Ctrl is TWinControl) then
    begin
      TWinControl(Ctrl).Repaint;
      for i := 0 to TWinControl(Ctrl).ControlCount - 1 do
        DoRepaint(TWinControl(Ctrl).Controls[i]);
    end;
    //neu
    if (Ctrl is TCustomRichEdit) then
      TCustomRichEdit(Ctrl).Repaint   
  end;

erscheint das Richedit für eine Milisekunde wieder, ist sofort danach aber wieder weg. :(

[cookie22]

Liegen die Compos auf dem TrsPanel?

[Jacques Murell]

Nein, dass RichEdit liegt unter einem TTrsPanel.