DrawFocusRect entfernen

[Dennis07]

Hallo,
ich habe eine Frage zu der Procedure DrawFocusRect:
Mir ist klar, dass, wenn ich sie Ausführe, ein Rechteck 'gemalt' bzw. 'wegradiert' wird, doch wie kann ich alle FocusRects auf einmal löschen?

Danke;
Dennis

[DeddyH]

Wie, alle auf einmal? Wieviele hast Du denn und wo kommen die her?

[Coffeecoder]

Werden nicht alle gelöscht wenn man Refresh oder Repaint ausführt?

[DeddyH]

Nö, aber bei Fokusverlust (es sei denn, man hat die im OnPaint oder so selbst gezeichnet).

[Dennis07]

Naja... ich habe das mit Panels...... ich zeiche den um Panels....
zur zeit verwende ich den folgenden Code zum Zeichen des Rects:

Delphi-Quellcode:

procedure TfmPool.SelectObject(Sender: TObject);
var
  DWDC: DWORD;
begin
  DWDC := GetDC((Sender as TPanel).Handle);
  try
    if Sender is TPanel then
    begin
      with (Sender as TPanel) do
      begin
        SetFocus;
        DrawFocusRect(DWDC,(Sender as TPanel).ClientRect);
      end;
    end;
  finally
    ReleaseDC((Sender as TPanel).Handle,DWDC);
  end;
end;

[Bummi]

Solche Routinen gehören ins Paint der Komponenten.

Schieb' mal nach dem ersten Zeichnen ein Fenster über die halbe Komponente und zieh' es wieder weg. Der Neuaufruf invertiert die nun fehlerhafte Darstellung nur

[DeddyH]

Und das machst Du bei allen Panels auf dem Formular? Dann würde ich doch eher eine Ableitung von TPanel schreiben. Übrigens: die "is"-Abfrage ist an der Stelle überflüssig, da durch das vorhergehende "as" bereits sichergestellt ist, dass es sich um ein TPanel handelt.

[Dennis07]

Nun gut, eine ableitung von TPanel will/kann ich nicht.
Das mit dem halben Fenster hat funktioniert. Allerdings ist es sowohl umständlich als auch unbrauchbar, da ich ja nur eine form habe und nicht deswegen eine 2. Einführen will.
Geht das?