Button enable / disable

[Landogar-Garuno]

Hallo alle zusammen

benötige mal eure hilfe, habe leider im netz nichts passendes gefunden.

brauche mal ein example für:

Button disable (file.xxx nicht vorhanden) Button enable (file.xxx vorhanden)

file.xxx liegt im selben verzeichniss.

danke für eure hilfe

[mkinzler]

Delphi-Quellcode:

Button.Enabled := FileExists( 'file.xxx');

[Sharky]

Zitat:

Zitat von Landogar-Garuno

... file.xxx liegt im selben verzeichniss. ...

Hai Landogar-Garuno,

ersteinmal: Herzlich Willkommen in der Delphi-PRAXiS :hello:

Du solltest berücksichtigen das beim Zugriff auf eine Datei ohne Pfadangabe immer das aktuelle Verzeichnis verwendet wird. Dies muss nicht zwangsläufig das sein in dem sich dein Programm befindet.

Es ist also besser immer den Pfad mit anzugeben.

[Landogar-Garuno]

Hallo
Danke für eure hilfe, leider ist der butten erst disable , wenn ich den button benutzt habe

Delphi-Quellcode:

unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
begin
  Button1.Enabled := FileExists( 'file.xxx');
end;

procedure TForm4.Button2Click(Sender: TObject);
begin
    Application.Terminate;
end;

end.

[edit=Sharky]Delphi-Tags richtig gesetzt. Mfg, Sharky[/edit]

[mkinzler]

Du solltest den Code bei einem anderen Ereignis ausführen. Am Besten am Programmstart.

[taaktaak]

Moin, Moin,
na, das ist schon klar. Der Code gehört ja auch an eine Stelle, wo er automatisch aufgerufen wir, z.b. in OnShow ...

// siehe oben

[Landogar-Garuno]

Hallo

Danke jetzt funzt es.... :-D

[Landogar-Garuno]

Hallo alle zusammen
könnt ihr mal schauen was ich falsch gemacht habe.

[/delphi]
procedure TForm1.FormShow(Sender: TObject);


begin


Button1.Enabled := FileExists( 'file.xxx,');
if FileExists('file.xxx') then
Label4.Caption:=('file found')
else
Label4.Caption:='file not found';

Button1.Enabled := DirectoryExists( 'C:\TEST\myProject');
if DirectoryExists('C:\TEST\myProject') then
Label5.Caption:=(' Ordner gefunden')
else
Label5.Caption:='Ordner nicht gefunden';

mein Problem is wenn eins von beiden vorhanden ist, ist der button enable

[mkinzler]

Und wann soll er aktiv sein? nur wenn beide vorhanden sind?

[DeddyH]

Zitat:

Zitat von Landogar-Garuno

mein Problem is wenn eins von beiden vorhanden ist, ist der button enable

Öööhhmm... ja, das steht ja auch da.