Création de composant

Question

Lu,

Voila mon problème:

J'ai essayé de créer un composant (bah oui jvoulé voir quoi...)
mais quand je veux l'installer bah la ca par en cou...

Quand ya pas trop de problème mon composant apparait dans ma palette mais dès que je fais un nouveau projet il se cache ... et ca c'est au mieu sinon j'ai un gros bordel  avec les packages....

Bon jvous donne mon code on sait jamais: 


unit ShellExecute;

interface

uses
  SysUtils, Classes, QDialogs,Windows;

type
  TShellExecute = class(TCustomDialog)
  private
    { Private declarations }
    FFileName:TFileName;
  protected
    { Protected declarations }
    procedure SetFileName(Fichier: TFileName);
    procedure Execute;
  public
  Constructor Create(AOwner:TComponent); override;
{ Public declarations }
 
  published
    { Published declarations }
     property FileName: TFileName
    read FFileName write SetFileName ;
  end;

procedure Register;

implementation
Constructor TShellexecute.Create(AOwner:TComponent);
begin

  InHerited Create(AOwner); 
  FFileName:='...';
end;

procedure Register;
begin
  RegisterComponents('Standard', [TShellExecute]);
end;

procedure TShellExecute.SetFileName(Fichier: TFileName);
begin
FFileName:=Fichier;
end;

procedure TShellExecute.Execute;
begin
WinExec(PChar(FFileName), SW_SHOWNORMAL);
end;
end.


C'est un composant de base mais c'était juste pour faire un test...

Donc ma question est :
Est ce que quelqu'un  sait d'ou vient le probleme?  et comment le régler?

Merci  :big) 
++

Don0Choa · Answer

Oh yé jme suis rendu compte que j'avais tt faux!
Donc je vais revoir le tt pas la peine de vous déranger
++

Création de composant

1 réponse

Votre réponse

Discussions similaires