Neuzeichnen eines Steuerelements verhindern

[MatthiasR]

Folgende Frage: kann man temporär das Neuzeichnen eines Controls unterbinden? Konkret geht es um ein StringGrid, das auf einem Formular liegt. Während der Gridinhalt überarbeitet wird (es werden alle Zeilen analysiert und überflüssige gelöscht), soll das Steuerelement nicht ständig neu gezeichnet werden, sondern erst, nachdem die Überarbeitung vollständig abgeschlossen wurde.

Wie geht das? Gibt es da Methoden a la "DisableRepaint" und "EnableRepaint" oder so ähnlich?

[mkinzler]

BeginUpdate/EndUpdate

[MatthiasR]

Zitat:

Zitat von mkinzler (Beitrag 1038380)

BeginUpdate/EndUpdate

In welcher Klasse sind die Methoden definiert?

[Namenloser]

TStringGrid BeginUpdate führt zu diesem Thread im Embarcadero-Forum.

[mkinzler]

In der StringList-Klasse
Je nach dem was du einfügst also für die Cols oder Rows setzen:

Delphi-Quellcode:

function LockGrid( Grid: TStringGrid);
var
    i: Integer;
begin
    for i := 0 to Grid.ColCount -1 do
    begin
        Grid.Cols[i].BeginUpdate;
    end;
end;

function UnLockGrid( Grid: TStringGrid);
var
    i: Integer;
begin
    for i := 0 to Grid.ColCount -1 do
    begin
        Grid.Cols[i].EndUpdate;
    end;
end;

[MatthiasR]

Zitat:

Zitat von NamenLozer (Beitrag 1038385)

TStringGrid BeginUpdate führt zu diesem Thread im Embarcadero-Forum.

Das StringGrid aus dem TMS-Komponentenpaket bietet die Methoden BeginUpdate und EndUpdate selbst bereits an, habe ich entdeckt. Intern wird eine Windows-Nachricht wie folgt verschickt:

Delphi-Quellcode:

SendMessage(Handle,WM_SETREDRAW,integer(False),0);

Mit diesem Aufruf sollte das ganze eigentlich für jedes Control unter D7 funktionieren, oder? Gleich mal ausprobieren. Ansonsten versuche ich es mit deinem Ansatz, vielen Dank!

EDIT: Jawollja, mittels Windows-Message WM_SETREDRAW erfolgreich an einem TMemo ausprobiert :)

[shmia]

Da gibt es sogar eine schöne Procedure dazu: LockControl()

[MatthiasR]

Super, danke! Werde ich so in unser Projekt übernehmen :thumb: