Problem mit Buttons

[Tommy1988]

Hallo, ich habe da ein kleines Problem.

Ich habe ein Programm geschrieben worum es geht, egal :D

Auf meiner Form ist ein Button,

Ich würde gerne abfragen, ob eine Datei existriert,
wenn ja => Button enabled
wenn nein => button disabled

(wenn möglich vielleicht auch noch mit unterschiedlichem text..)

ist das möglich?

wie man eine datei abfragt weis ich, aber bisher nur wie man dann ein
Applikation.Message ausgibt.

mehr nicht

[Helmi]

so gehts:

Delphi-Quellcode:

Button1.Enabled := FileExists(Dateiname);

[Mr_G]

Und für die Beschriftung:

Delphi-Quellcode:

Button1.Caption := 'mein Knopf';

[Tommy1988]

das bringt mich jetzt überhaupt kein bischen weiter.

one den kontext versteh ich das nicht

[Matze]

Herzlich willkommen,

so leid's mir tut: Einsteiger-Tutorial. ;)

[SirThornberry]

ein Button ist ein Object. Dieses Object hat eigenschaften etc. Eine davon ist eben Caption. Die Caption ist der Text welcher angezeigt wird. Wenn du jetzt also den Text ändern willst der vom Button angezeigt wird musst du die Caption ändern. Dies wird mit

Delphi-Quellcode:

Button.Caption := 'neuer Buttontext';

gemacht.

[Tommy1988]

das kenne ich alles schon.. alles einfach..

aber ich glaube ihr habt mein problem nicht verstanden.

wenn eine datei existriert soll der butt enabled sein
und wenn diese datei nicht existriert soll der button disabled sein

[Blackheart]

Da Steht Doch die Lösung.

Zitat:

Zitat von Helmi

so gehts:

Delphi-Quellcode:

Button1.Enabled := FileExists(Dateiname);

FileExists Liefert Dir entweder False oder True.

[Matze]

Das hier

Delphi-Quellcode:

Button1.Enabled := FileExists(Dateiname);

entspricht genau dem hier:

Delphi-Quellcode:

if FileExists(Dateiname) then
  Button1.Enabled := true
else
  Button1.Enabled := false;

[Gehstock]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Enabled := FileExists('c:\1.txt');//1.txt ist die zu findende Datei
if Button1.Enabled = True  then  Button3.Caption := 'Datei gefunden'
 else
  Button1.Caption := 'Datei nicht gefunden';
end;

[Tommy1988]

und wo füge ich das ein?

(ERLEDIGT)

[inherited]

Sobald du die Überprüfung haben willst. Also entweder am Anfang oder Mittendrin auf Knopfdruck oder in einem Timer wenn es ständig überprüft werden soll.

[Matze]

Zitat:

Zitat von Tommy1988

und wo füge ich das ein?

(ERLEDIGT)

Ist es nun erledigt oder nicht? Falls nicht, dann glaube ich dir nicht ganz, dass du die Tutorials aufmerksam durchgearbeitet hast. Das kommt da hin, wo du's haben möchtest. Soll es per Klick auf einen Button passieren, dann nimmst du eben dessen OnClick-Ereignis. Bei Programmstart könntest du OnActivate nutzen.

[Blackheart]

Zitat:

Zitat von Tommy1988

das kenne ich alles schon.. alles einfach..

aber ich glaube ihr habt mein problem nicht verstanden.

wenn eine datei existriert soll der butt enabled sein
und wenn diese datei nicht existriert soll der button disabled sein

So Einfach scheint es dann aber doch nicht zu sein. :wink:

[Tommy1988]

tut mir leid.. ICH hab EUCH falsch verstanden weil ich falsch/zu schnell gelsen habe..

eine sache noch:
kann man einen button enabled := false machen nachdem klick?

[Helmi]

ja das geht, du musst nur im OnClick des Buttons schreiben

Delphi-Quellcode:

Button1.Enabled := false;

dann wird der button disabled wenn man auf ihn draufklickt

[Tommy1988]

wie geht denn das schonwieder :'(
wo muss ich OnClick schreiben? sry..

[Tommy1988]

dadrum gehts:

procedure TForm2.Button2Click(Sender: TObject);
begin
SetWindowLong(Button1.Handle, GWL_STYLE,GetWindowLong(Button1.Handle, GWL_STYLE) or BS_MULTILINE);

Button1.Enabled := DirectoryExists('C:\... mein pfad');
if Button1.Enabled = True then
Button1.Caption := 'OK!'
else
Button1.Caption := 'nicht ok';
end;

[Helmi]

geh in den ObjektInspector dort findest du einen Reiter für die Eigenschaften und einen Reiter für die Ereignisse

geh auf den Reites des Ereignisses und mach einen doppelclick auf OnClick (in dem weissen feld)

[Edit]
Frage: wenn du schon ein OnClickEreignis für den Button2 hast, wieso weisst du dann nicht wie man ein OnClick Ereignis für den Button1 macht?

[Edit 2.]
Und wenn du einen Code darstellen willst, dann verwende bitte die Delphi-Tags :dp:

[Tommy1988]

ich hab das so:

button1 ist solange nicht enabled solange man nicht auf button2 geklickt hat.

bei OnClick kann ich nur button1 und button2 auswählen.

[Tommy1988]

guckt hier:

Delphi-Quellcode:

Button1.Enabled := DirectoryExists('C:\ mein pfad');
if Button1.Enabled = True  then
Button1.Caption := 'ok!'
else
  Button1.Caption := 'nicht ok!';

  if Button1.Enabled = True  then
Button2.Enabled := False
else
  Button2.Caption := 'geklickt';
end;

[Helmi]

Bitte sehr

im Anhang eine Anleitung zum einfügen eines OnClicks

[Matze]

Zitat:

Zitat von Tommy1988

das kenne ich alles schon.. alles einfach..

Du findest alles in dem Tutorial einfach und kannst nicht mal ein OnClick-Ereignis erstellen? Dir glaube ich kein Wort.
Guck dir das Tutorial (noch) einmal in aller Ruhe an und programmiere die Beispiele nebenher mit. Hier steht genau, wie man die Beschriftung eines Buttons ändert und wie man diesem ein Ereignis zuweist. 90% deiner Fragen werden in diesem Einsteigertutorial erläutert! Also arbeite das durch und frage dann erst wieder hier nach.

[Tommy1988]

ich habe nicht gesagt dass ich das tutorial verstehe :D

das mit dem verstehen meinte ich bezüglich button1.caption .. dadada..
aber egal.. not macht erfinderich.

hab gestern abend nochmal meinen schrott den ich mir zusammengefriemelt habe neu gemacht
und jetzt klappts gut.

es ging dabei um die gültigkeitsprüfung eines ordners und vielen vielen datien.

und dazu gibts dann nochmal viele viele "true" oder "false" optionen.

habs aber jetzt hinbekommen, nicht weil ich das tut gelesen habe sondern weil ich es in RUHE gemacht habe

[Tommy1988]

weis jemand von euch wie ich den text von einer TEdit Box durch klick
eines buttons in ein Memo geschrieben bekomme?

ich habe da schon was versucht nur leider klappts nicht

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
test,

begin

Memo1.Lines.Clear;
Memo1.Lines.Add('TEST'+test+' NOCHMAL');

end;

procedure TForm1.Edit2Change(Sender: TObject);
begin

end;

procedure TForm1.Memo1Change(Sender: TObject);
begin

end;

[Matze]

Delphi-Quellcode:

Memo1.Text := Edit1.Text;

oder

Delphi-Quellcode:

Memo1.Lines.Add(Edit1.Text);

[Tommy1988]

klappt immernoch nicht.. irgentwas stmmt da mit dem "var" nicht.. der unterschtricht mir dann immer

begin"ein bezeichner erwartet, aber beginn erhalten.

Edit1.Text unterstricht der auch:
nicht deklarierter bezeichner..

[Tommy1988]

ah ich habs.. war nur ein tuipfehler von mir..

hatte Edit2 und nicht Edit1 deklariert..

[Tommy1988]

ok eins noch:

Delphi-Quellcode:

Memo1.Lines.Add(Edit1.Text);

kann ich noch vor Edit1.Text einen satz stellen in der selben zeile?

Edit:
kann sein dass es falsch ist aber ich habs jetzt so gemacht:

Delphi-Quellcode:

Memo1.Lines.Add('123');Edit1.Text;

[Matze]

Tutorial :roll:

Delphi-Quellcode:

Memo1.Lines.Add('Hallo' + Edit1.Text + 'Auf Wiedershen');

Strings werden mit "+" verknüpft.

Nachtrag: Das hast du doch ein paar Beiträge drüber so geschrieben und weißt doch wie's geht, wieso fragste dann? Und bitte editiere zukünftig deinen letzten Beitrag, anstatt so zu spammen. Danke.

Nachtrag 2: Wir sind nun durch diese simple Fragerei auch vom Thema abgedriftet, also wenn's nicht mehr um den Button an sich geht, bitte keine Fragen mehr stellen in diesem Thread.

[mkinzler]

Zitat:

Zitat von Tommy1988

ok eins noch:

Delphi-Quellcode:

Memo1.Lines.Add(Edit1.Text);

kann ich noch vor Edit1.Text einen satz stellen in der selben zeile?

Wie meinst du das?

[Tommy1988]

du hast recht aber ich habe nurnoch eine einzige frage.

wie binde ich auf diese art und weise einen radiobutton ein?

[Matze]

Zitat:

Zitat von Tommy1988

wie binde ich auf diese art und weise einen radiobutton ein?

Das gehört erstens nicht hier her und zweitens versteht wahrscheinlich keiner die Frage. TRadiobutton auf's Formular ziehen und er ist eingebunden. *g*

Sag uns dann, was du machen möchtest, nachdem du die Suche bemüht hast. Und erstelle dazu bitte ein neues Thema.


@Markus: Tommy meinte, wie man einen String anknüpfen kann, wie ich's vor deinem Beitrag erwähnt hatte. ;)

[Tommy1988]

erm.. das was man angeklickt hat soll dann im Memo erscheinen

[Helmi]

Zitat:

Zitat von Tommy1988

erm.. das was man angeklickt hat soll dann im Memo erscheinen

Was hat das noch mit dem eigentlichen Thema zu tun?

Ich denke in zwischen, dass du uns verarschst und wir dir dein Programm schreiben sollen (wenn auch auf Raten).

Halte dich dran was Matze geschrieben hat!!

[Phoenix]

Neue Frage--> Neuer Thread. Deswegen geschlossen.