Delphi 2006 und Cursor Caret

[gluglu]

Hallo !

Ich bemerke folgendes unter D2006 : Wenn ich ein Panel.Visible := True mache, auf dem sich mehrere TDBEdit's befinden, so verschwindet fast immer der erste 'caret' vom DBEdit. Dieses passiert sowohl wenn ich von einen Panel zum anderen 'umfocusiere'.

Der selbe Quellcode unter D2005 funktioniert richtig.

[wobu]

Hallo,

ich habe nach der Umstellung eines Programms von Delphi 8 auf Delphi 2006 genau das selbe Problem.
Das Programm greift über dbExpress auf einen Interbase-Server zu und ich habe den Eindruck, dass bei jedem Zugriff auf die Datenbank der Caret-Cursor verschwindet.

Vielleicht hast Du schon eine Lösung dafür gefunden
(Frage mich eigentlich, warum die Foren nicht mit diesem Fehler "überschwemmt" werden?)

Vielen Dank

Wolfgang

[gluglu]

Habe ein Vorschlag gefunden aber selber, ehrlich gesagt, noch nicht ausprobiert :

Delphi-Quellcode:

procedure TKBForm.myShowForm ( Work : TForm );
begin
  with Work do
  begin
    SetWindowPos( Handle,
                  HWND_TOPMOST,
                  Left, Top, Width, Height,
                  SWP_NOACTIVATE or
                  SWP_NOMOVE or
                  SWP_NOSIZE or
                  SWP_SHOWWINDOW );
  end;
end;

procedure TKBForm.myHideForm ( Work : TForm );
begin
  with Work do
  begin
    SetWindowPos( Handle,
                  HWND_TOPMOST,
                  Left, Top, Width, Height,
                  SWP_NOACTIVATE or
                  SWP_NOMOVE or
                  SWP_NOSIZE or
                  SWP_HIDEWINDOW );
  end;
end;