Application.OnRestore, Onminimize [Résolu]

Taktaky 31 Messages postés lundi 21 mai 2007Date d'inscription 21 août 2008 Dernière intervention - 21 mai 2008 à 15:03 - Dernière réponse : f0xi 4304 Messages postés samedi 16 octobre 2004Date d'inscription 9 mars 2018 Dernière intervention
- 21 mai 2008 à 21:23
Salut

je voudrais Refresh mon TrsPanel1 mais je ne peut pas compile the Programme :

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnRestore := ShowDummy(trsPanel1);// error Untyped Parameter !
Application.OnMinimize := ShowDummy(trsPanel1);
end;

procedure ShowDummy(C: TControl);
var
PF: TCustomForm;
 
procedure SC_(WC: TWinControl);
var I: Integer;
begin
WC.Invalidate;
for I : = 0to WC.ControlCount - 1do
begin
if WC.Controls[I]is TWinControl then
SC_(WC.Controls[I]as TWinControl)
else
WC.Controls[I].Invalidate;
end;
end;
 
begin
ifnot(csDesigning in C.ComponentState)then
begin
if C is TForm then
PF := (C as TForm)
else
PF := GetParentForm(C);
if PF <> nilthen
SC_(PF);
end;
end;
Afficher la suite 

Votre réponse

1 réponse

Meilleure réponse
f0xi 4304 Messages postés samedi 16 octobre 2004Date d'inscription 9 mars 2018 Dernière intervention - 21 mai 2008 à 21:23
3
Merci
tu ne peu pas assigner une procedure a un gestionnaire d'evenement!

et si ton Panel est un TPanel, un simple trsPanel1.Refresh devrait suffire.

Merci f0xi 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 95 internautes ce mois-ci

Commenter la réponse de f0xi

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.