Ver Mensaje Individual
  #2  
Antiguo 08-07-2006
madriles madriles is offline
Miembro
 
Registrado: may 2003
Ubicación: madrid
Posts: 93
Reputación: 22
madriles Va por buen camino
hola
el codigo tal como lo pones funciona perfectamente, no hay ningun error, te pongo la prueba que he hecho

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   ListBox1.Items.LoadFromFile('C:\hola.txt');
end;

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
    Panel1.Visible := True;
    begin
    Panel1.Caption := ListBox1.Items.Strings[ListBox1.ItemIndex];
    end;
end;

end.

no se de donde te puede venir el fallo, aunque supongo que puede estar en el texto que quieres cargar, revisalo y nos cuentas

un saludo
Responder Con Cita