[delphi-br] Exceção em OpenDialog

Wed, 29 Nov 2006 05:15:32 -0800 

Pessoal, estou com o seguinte problema:
Tenho em um Form um componente TOpenDialog, um TButton e um TEdit pra
exemplificar.
Seria para o usuário escolher um dentre vários skins para o aplicativo.
O procedimento ocorre normalmente até a escolha do arquivo através do
openDialog. Acontece que
ao clicar no botão abrir do OpenDialog, ocorre uma exceção. Já vasculhei pra
todo lado e nao consigo encontrar
o que está causando esta exceção.

"Project Papyrus.exe raised excpetion class EAccessViolation with message
'Access violation at address 00000000.
Read address 0000000'. Process stopped. Use Step or Run to continue"

Abaixo o código que estou utilizando como exemplo:

unit uSkin;

interface

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

type
  TfrmSkin = class(TForm)
    opDiag: TOpenDialog;
    Busca: TBitBtn;
    Edit1: TEdit;
    Sair: TBitBtn;
    procedure BuscaClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSkin: TfrmSkin;

implementation

{$R *.dfm}

procedure TfrmSkin.BuscaClick(Sender: TObject);
begin
    if opDiag.Execute = true then
        edit1.Text := ExtractFilePath(opDiag.FileName);
end;

procedure TfrmSkin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action := caFree;
end;

end.


[As partes desta mensagem que não continham texto foram removidas]

Responder a