Discussion :

[petitprince]

Bonjour, voilà y a t'il un moyen pour optimiser ce code?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 if (FSaveButton is TButton) then
  (FSaveButton as TButton).OnClick:= SaveProjectEvent;
 
 if (FSaveButton is TMenuItem) then
   (FSaveButton as TMenuItem).OnClick := SaveProjectEvent;
 
 if (FSaveButton is TToolButton) then
   (FSaveButton as TToolButton).OnClick := SaveProjectEvent;

J'ai beau y triturer dans tout les sens je ne vois pas ...
Merci !

[droggo]

Noe,

Déjà, enchaîner les différents tests avec des sections else pour les if, puisque les tests ne peuvent pas être tous vrais en même temps. Tu évites ainsi de faire ceux qui ne servent à rien.

[petitprince]

humm.... certe....
Je me suis mal exprimé, je ne parlais pas d'optimisations de ce style, mais je voyais plutôt la chose comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
if (FSaveButton.ClassType = TButton) or ..... then
  (FSaveButton as 'une classe générique').OnClick := SaveProjectEvent;

Parce que je vais avoir à peu prêt une cinquantaine du ligne de se style....
Voilà

[Kaféine]

Salut,

Peut être une piste à compléter pour toi...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
type
  TWinControlAccess = class(TWinControl);
 
TWinControlAccess(FSaveButton).OnClick := SaveProjectEvent;

[Mac LAK]

A part éviter effectivement de faire systématiquement les trois tests, je ne vois pas trop comment optimiser ça...

On ne peut pas passer par les objets ancêtres, car TControl (adéquat pour TButton et TToolButton) ne publie pas son évènement OnClick. TMenuItem, lui, dérive directement de TComponent en plus...

[Andnotor]

N'as-tu pas le composant TActionList dans ta version de Delphi ?
Ces trois contrôles seraient liés statiquement à une action et seul l'événement de cette action pourrait être settée.

[edam]

FSaveButton.OnClick := SaveProjectEvent

[petitprince]

@edam:
C'est impossible.... Cette solution ne peut marcher que si on sait à l'avance à quelle classe FSaveButton appartient, mais dans mon cas on ne sait pas, d'où les tests...
Mais je le reconnais, c'est un peu de ma faute car je n'ai pas assez donné de précisions:

FSaveButton est une propriété de composant et du type TComponent.
Pour faire apparaitre l'événement "OnClick", on est obligé de transtyper FSaveButton et de tester s'il appartient à une classe donnée, sinon Delphi refuse de compiler.

@Andnotor:
Justement j'essaie de reproduire le TActionList, sans l'utiliser, car en réalité j'utilise des composants graphiques(boutons, menus, ...) que j'ai moi-même développé, et je n'ai pas envie de leur implémenter des actions....

[edam]

N'as-tu pas le composant TActionList dans ta version de Delphi ?
Ces trois contrôles seraient liés statiquement à une action et seul l'événement de cette action pourrait être settée.

+1

[petitprince]

J'ai expliqué plus haut pourquoi je ne souhaite pas utiliser le TActionList. Je ne me répèterai donc pas.

@Kaféine:
Ta solution marche impec, dommage que l'on soit obligé de mettre la nouvelle méthode en "published".
Je l'ai comprise donc c'est bon, je considère ce sujet comme résolu

Merci à toi et à tous les participants

[edam]

svp ne crié pas, essai ce code, je sais pas pourquoi il marche chez moi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    MainMenu1: TMainMenu;
    xxx1: TMenuItem;
    xxxx1: TMenuItem;
    Button2: TButton;
    Shape1: TShape;
    procedure Button2Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
  maclas=class(TControl)
 
  end;
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button2Click(Sender: TObject);
begin   
     with maclas(xxxx1) do
        if @OnClick=nil then ShowMessage('Erreur')
        else ShowMessage(inttostr(integer(@OnClick)));
     with maclas(Shape1) do
        if @OnClick=nil then ShowMessage('Erreur')
        else ShowMessage(inttostr(integer(@OnClick)));
end;

[mick605]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 if (FSaveButton is TButton) then
  (FSaveButton as TButton).OnClick:= SaveProjectEvent;
 
 if (FSaveButton is TMenuItem) then
   (FSaveButton as TMenuItem).OnClick := SaveProjectEvent;
 
 if (FSaveButton is TToolButton) then
   (FSaveButton as TToolButton).OnClick := SaveProjectEvent;

Je vais peut etre dire une grosse bêtise mais bon ...

Est ce qu'on pourrait pas faire un tableau contenant :
Tab=[TButton,TMenuItem,TToolButton,...,...,...]
et ensuite faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
for i:=low(Tab) to High(Tab)
  if (FSaveButton is Tab[i]) then
  begin
    (FSaveButton as Tab[i]).OnClick := SaveProjectEvent;
    Break;
  end;

Je sais pas si c'est vraiment possible ...

[Kaféine]

Salut,

Version 2 de mon précédent post:

Puisque "OnClick" apparaît avec TControl:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
type
  TControlAccess = class(TControl);
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if FSaveButton.InheritsFrom(TControl) then
    TControlAccess(FSaveButton).OnClick := TestHandler;
end;

[anapurna]

salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Found := (FSaveButton is TButton) 
          or (FSaveButton is TMenuItem)
          or (FSaveButton is TToolButton); 
 if Found  Then 
  TComponent(FSaveButton).OnClick := SaveProjectEvent;

@+ Phil

[petitprince]

Aucune des solutions ne marche, sauf celles de Kaféine, pour la simple raison que l'on ne connais pas le type de FSaveButton à l'avance.

@anapurna:
Delphi refuse catégoriquement la compilation. "TComponent(FSaveButton)" n'a pas d'événement OnClick, même avec les tests de début...

Les exemples de Kaféine fonctionnent, car on admet que le type donné à FSaveButton est un TControl, TControl qui comporte bien l'événement OnClick. Ils ne marchent pas cependant pour les TMenuItems, descendant de TComponent, voire TCollectionItem ????

[anapurna]

salut

je n'avait pas tester
d'apres ce que tu dit ils n'ont pas d'ancêtre commun ?

dans ce cas il va falloir dissocier tes différent ancêtre ayant une méthode onclick afin de pouvoir transtypé les différents composant



@+ Phil

[Mac LAK]

Aucune des solutions ne marche, sauf celles de Kaféine, pour la simple raison que l'on ne connais pas le type de FSaveButton à l'avance.

Sauf qu'en raisonnant POO, elle contrevient à toutes les règles d'héritage : tu transtypes ta classe vers une classe dont elle n'hérite pas !!!

La solution du TActionList resterait la plus "propre", même si elle suppose une indirection de plus.