Besoin d'aide pour optimiser un code

**petitprince** · 02/08/2009, 23h11

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** · 02/08/2009, 23h37

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** · 03/08/2009, 00h24

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** · 03/08/2009, 00h33

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** · 03/08/2009, 00h35

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** · 03/08/2009, 09h43

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** · 03/08/2009, 13h04

FSaveButton.OnClick := SaveProjectEvent

**petitprince** · 03/08/2009, 15h19

@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....

**mick605** · 03/08/2009, 15h53

Envoyé par petitprince

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** · 03/08/2009, 16h45

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** · 03/08/2009, 18h14

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** · 03/08/2009, 18h30

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** · 03/08/2009, 18h58

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

**Kaféine** · 03/08/2009, 20h05

Du coup il ne reste plus que la solution RTTI

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
 
(...)
  published
    procedure TestHandler(Sender: TObject);
(...)
 
procedure TForm1.Button1Click(Sender: TObject);
var
  P: PPropInfo;
  LeHandler: TMethod;
begin
    P := GetPropInfo(FSaveButton, 'OnClick');
    if P <> nil then
    begin
      LeHandler.Code := MethodAddress('TestHandler');
      LeHandler.Data := Pointer(Self);
      SetMethodProp(FSaveButton, P, LeHandler);
    end;
end;

**edam** · 03/08/2009, 20h10

Envoyé par 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.

+1

**petitprince** · 04/08/2009, 13h10

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** · 04/08/2009, 14h06

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;

**petitprince** · 04/08/2009, 15h59

Mais je ne criais pas, je le disais calmement

Bizarre ton code, car chez moi il ne fonctionne pas du tout, ce qui est normal:
le shape n'a pas de méthode "OnClick", et le TMenuItem n'est pas un TControl.

Je ne comprend pas pourquoi ça marche chez toi ....

EDIT:
Bon après des tests plus poussés, le code marche uniquement au premier click sur le bouton, mais il marche uniquement pour le TMenuItem !!!!

Là je n'y comprend rien !!!

**edam** · 04/08/2009, 16h26

Envoyé par petitprince

EDIT:
Bon après des tests plus poussés, le code marche uniquement au premier click sur le bouton, mais il marche uniquement pour le TMenuItem !!!!

Là je n'y comprend rien !!!

c'est ce que je veux dire exactement, avec TShap --> message erreur, avec TItemMenu---> l'adresse de onclick
à propos, j'ai delphi 6

edit:

Envoyé par petitprince

Mais je ne criais pas, je le disais calmemen

pas pour toi, c'est pour tout les delphistes, car ce code n'a aucun sens

**Mac LAK** · 04/08/2009, 23h36

Envoyé par 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.

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.

Besoin d'aide pour optimiser un code

Langage Delphi

Discussions similaires

Partager

Partager