RES: [delphi-br] Exceção em OpenDialog

[Marcelo Hoepfner \(SI\)]

Tenta retirar o = true

 

 

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

 

  _____  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Edilson 
Gonçalves
Enviada em: quarta-feira, 29 de novembro de 2006 10:57
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Exceção em OpenDialog

 

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]

 



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