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.

[Landogar-Garuno]

ja button soll enable sein wenn beide vorhanden sind (file und ordner)
:cheers:

[DeddyH]

Delphi-Quellcode:

Button1.Enabled := FileExists( 'file.xxx,') and DirectoryExists( 'C:\TEST\myProject');

[Die Muhkuh]

Ist das Komma am Ende des Dateinamens eig. gewollt?

[mkinzler]

Zitat:

Zitat von Die Muhkuh

Ist das Komma am Ende des Dateinamens eig. gewollt?

Wohl nicht

[taaktaak]

Zitat:

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

Zitat:

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

Da möchte ich mich mit einem Ääähhmm... der erstaunten Menge anschließen: Meine Interpretation der Programmzeilen legt allerdings die Vermutung nahe, dass der Button keinesfalls enabled sein dürfte, "wenn eins von beiden vorhanden ist" - sondern nur, wenn das Verzeichnis existiert. Oder gibt es da einen unsichtbaren Jump vor der zweiten Prüfung?

[Landogar-Garuno]

Hallo alle zusammen

Brauche mal wieder eure hilfe...

Button enable/disable funzt..jetz super.

nur ein Problem besteht noch.
ich muss das programm schließen und wieder öffen, wenn der button enable sein soll ( file.xxx vorhaden)
hat jemand ine gute idee zb. refresh oder all 2sec Prüfen ob file.xxx vorhanden ist oder nicht.
für ein kleines example, wäre ich dankbar.

mfg Landogar-garuno

[mkinzler]

Man könnte einen Timer verwenden

[STS301]

gut werds mir merken ;)

[DeddyH]

So bitte nicht!

[Landogar-Garuno]

hmmmm hat keine eine gute idee :(

[DeddyH]

Was gefällt Dir an dem Timer-Vorschlag denn nicht?

[Landogar-Garuno]

Danke für den Vorschlag....wenn ihr jetzt noch ein kleines example habt, das würde mir schon weiter helfen.

example mit timer und file... vorhanden oder nicht
:-D