OnRestore, OnMinimize

[taktaky]

Ich konnte endlich die Funktion aufrufen aber die Funktion hat mir nicht geholfen
Ich dachte der TrsPanel wird damit aktualisiert (Refresh)
Ich versuche den Komponent-Hersteller zu kontaktieren vielleicht, da die Leute wahrscheinlich keine Erfahrung mit dieser Komponent (Trs-Panel.dpk) haben

Delphi-Quellcode:

  public
    { Public declarations }
  protected
  procedure ShowDummy(Sender: TObject);
  end;
//...
procedure ShowDummy(C: TControl);
var
  PF: TCustomForm;

  procedure SC_(WC: TWinControl);
  var I: Integer;
  begin
    WC.Invalidate;
    for I := 0 to WC.ControlCount - 1 do
    begin
      if WC.Controls[I] is TWinControl then
        SC_(WC.Controls[I] as TWinControl)
      else
        WC.Controls[I].Invalidate;
    end;
  end;

begin
  if not (csDesigning in C.ComponentState) then
  begin
    if C is TForm then
      PF := (C as TForm)
    else
      PF := GetParentForm(C);
    if PF <> nil then
      SC_(PF);
  end;
end;

procedure TForm1.ShowDummy(Sender: TObject);
begin
 ShowDummy(TrsPanel1);
end;

procedure TForm1.FormCreate(Sender: TObject);

begin
  Application.OnRestore := ShowDummy;
  Application.OnMinimize := ShowDummy;
end;
//...
end.