Erreur de Handle lors de la création de Memo

Marsh Posté le 20-08-2006 à 14:30:51

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

Reply

Marsh Posté le 20-08-2006 à 14:30:51

Reply

Marsh Posté le 21-08-2006 à 14:28:36

Up

Reply

Marsh Posté le 21-08-2006 à 17:18:51

Salut ,

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

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

Reply

Marsh Posté le 21-08-2006 à 20:04:34

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 ?

Reply

Marsh Posté le 21-08-2006 à 22:22:19

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;

:??:

Reply

Marsh Posté le 23-08-2006 à 22:07:53

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

Reply

Marsh Posté le 29-08-2006 à 17:45:27

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

Reply

Erreur de Handle lors de la création de Memo

Sujets relatifs:

Leave a Replay