Erreur de Handle lors de la création de Memo

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Erreur de Handle lors de la création de Memo

jol30

Fils caché de Chuck Norris

Hello :hello:

Voici le code que j'utilise pour créer dynamiquement un TabSheet, puis y inclure un Memo:

Code :

var
Form1: TForm1;
ListeTS: Array Of TTabSheet;
ListeMemo: Array Of TMemo;
ntab: integer=1;
...
with PageControl1 do begin
SetLength(ListeTS, ntab+1);
SetLength(ListeMemo, ntab+1);
ListeTS[ntab]:= TTabSheet.Create(Self);
with ListeTS[ntab] do begin
PageControl:=PageControl1;
Caption:= r.Match[2];
end;
ListeMemo[ntab]:= TMemo.Create(Self);
with ListeMemo[ntab] do begin
Parent:=ListeTS[ntab];
Align:=alClient;
Lines.Add('Memo N° '+IntToStr(ntab));
end;
ntab:=ntab+1;
end;

Les tabsheet sont bien crée, mais le memo, lui, n'est pas créer ou ne s'affiche pas :??:
De plus a la fermeture, j'obtient l'erreur "Handle de fenêtre non valide"

Merci d'avance pour votre aide

Publicité

jol30

Fils caché de Chuck Norris

aldo13000

Salut ,

Bon ecoute , sans avoir testé , en principe ce code doit fonctionner .

---------------

jol30

Fils caché de Chuck Norris

Aprés vérification, t'as raison, le code seul fonctionne

J'ai bien cherché et il se trouve que le pb vient de la ligne

Code :

line:= AContext.Connection.IOHandler.ReadLn;

Si je la remplace par :

Code :

line:= 'ce que doit normalement renvoyer AContext.Connection.IOHandler.ReadLn';

l' erreur de Handle disparait et les onglets & memo se creent bien.

Apparament c'est l'erreur de Handle qui est causée par la ligne qui pause pb et qui enpèche la création / l'affichage du TMemo fraichement crée

Quelq'un a une idée ?

jol30

Fils caché de Chuck Norris

Ben en fait non, l'erreur ne vient pas de cette ligne

Je colle mon code si ça peut aider:

Code :

var
Form1: TForm1;
ListeTS: Array Of TTabSheet;
ListeMemo: Array Of TMemo;
ntab: integer=1;
r : TRegExpr;
line: string;
row: integer;

...

Code :

procedure CreateTab(TCPComand: string);
begin
if r.Exec(line) then begin
if not Form1.ValueListEditor1.FindRow(r.Match[1], row) then begin
with Form1.PageControl1 do begin
SetLength(ListeTS, ntab+1);
SetLength(ListeMemo, ntab+1);
ListeTS[ntab]:= TTabSheet.Create(Form1.PageControl1);
with ListeTS[ntab] do begin
PageControl:=Form1.PageControl1;
Caption:= 'tab '+IntToStr(ntab);
//r.Match[2];
end;
ListeMemo[ntab]:= TMemo.Create(ListeTS[ntab]);
with ListeMemo[ntab] do begin
Parent:=ListeTS[ntab];
Align:=alClient;
Lines.Add('Memo N° '+IntToStr(ntab));
end;
Form1.ValueListEditor1.InsertRow(r.Match[1], IntToStr(ntab), true);
ntab:=ntab+1;
end;
end;
end;

...

Code :

try
line:= AContext.Connection.IOHandler.ReadLn;
CreateTab(line);
if ValueListEditor1.FindRow(r.Match[1], row) then begin
if r.Match[3] <> '[785228522565121221544-221544554545-4545454-REFRESH-COMAND]' then begin
ListeMemo[row].Lines.add(r.Match[2]+' >> '+r.Match[3]);
end;
AContext.Connection.IOHandler.Write(ListeMemo[row].Lines);
end;
if not r.Exec(line) then begin
AContext.Connection.IOHandler.Write('Format de message incorrect.');
end;
finally
AContext.Connection.Disconnect;
end;

:??:

jol30

Fils caché de Chuck Norris

C'est trés strange:

Lorsque j'appel CreateTab() par TForm1.IdTCPServer1Connect(), TForm1.IdTCPServer1Disconnect() ou TForm1.IdTCPServer1Execute()

==> Erreur de handle + le TMemo ne se crée pas.

Par contre, lorsque je l'appel par un OnClick sur un bouton tout con, tout fonctionne...

Petite précision, j'utilise Indy 10

jol30

Fils caché de Chuck Norris

Du nouveau

J'ai testé avec cette portion de code:

Code :

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
begin
line:= AContext.Connection.IOHandler.ReadLn;
CreateTab(line);
sleep(3600);
AContext.Connection.IOHandler.Close;
end;

Le TabSheet se crée, le mémo aussi, tout fonctionne trés bien pendant la seconde de sleep() puis une fois
arrivé à AContext.Connection.IOHandler.Close Le méno disparait, puis erreur de handle :heink:

Aidez un jeune Padawan

FORUM HardWare.fr

Programmation

Delphi/Pascal

Erreur de Handle lors de la création de Memo

Sujets relatifs
erreur mysql dans phpmyadmin	Pbleme a resoudre : creation macro somme de 2 colonnes en 1 ? ? ? Thx!
[resolu]creation de dossiers/fichiers a la volee - problemes de droits	[php] Erreur boolean : MySQL en cause ?
[Résolu] Erreur de syntaxe, qui peut m'aider ?	Création d'un workbook en trop
Problème création Base de donnée	erreur 1064 mysql 4.0
erreur bizarre MySql	Creation d un algorithme de compression video
Plus de sujets relatifs à : Erreur de Handle lors de la création de Memo

Page générée en 0.070 secondes