Bonjour à tous,
J'ai un problème au niveau d'une TComboBox déclarée dans le code (Pas sur la fiche quoi). Ca m'as l'air bien louche et si quelqu'un peut m'aider, ça serait carrément cool...
Voici (en gros et simplifié) le code :
function TMyClass.MyFunction(Sender: TComponent): TPanel;
var
MyPanel: TPanel;
MyCombo: TComboBox;
begin
MyPanel := TPanel.Create(Sender);
// Configuration du panel
with MyPanel do
begin
Height:=25;
Caption := '';
BevelOuter := bvNone;
end;
MyCombo := TComboBox.Create(MyPanel);
MyPanel.InsertControl(MyCombo);
// Configuration de la combobox
with MyCombo do
begin
Left := 5; Top := 2;
Width := 150; Height := 21;
// Et c'est la que ça merde d'aprés le debugger :
Items.CommaText := '1,2,3';
Text := Items[0];
end;
Result := MyPanel;
end;
|
Et dans une autre méthode, on a :
...
NewPanel := MyFunction(NewPanel);
InsertControl(NewPanel);
...
|
Auncune erreur de compilation, mais à l'exécution, lorsque j'appelle la méthode précédente, j'ai le message d'erreur :
'Le controle " n'a pas de fenêtre parente', et c'est donc un problème au niveau de l'affectation de MyCombo.Items d'aprés le debugger.
Voilà. Pour celui ou celle qui est motivé, le code est entier, vous pouvez le copier-coller et apprécier l'erreur...
Dans tout les cas, merci d'avance.
BlackWood