caption änderung während das Programm läuft

mTDario · Hält's aus hier Beiträge: 1

hey Delphi-Programmierer
ich würde gerne die Caption eines Knopfs ändern sobald ich darauf klicke.
Also z.b.

Delphi-Quelltext

1:
2:

if (bt_knopf.click and player.play) = true then bt_knopf.caption := 'Aus';
if (bt_knopf.click and player.pause) = true then bt_knopf.caption := 'Ein';

Problem ist das sowohl das .click als auch .play sowie .pause nicht von typ boolean sind eine Lösung wäre sehr nett.

Danke mTDario

Moderiert von Gausi: Topic aus Sonstiges (Delphi) verschoben am Mo 02.03.2009 um 16:04
Moderiert von Narses: Delphi-Tags hinzugefügt

Gausi · Verfasst: Mo 02.03.09 16:04

Hallo und

in der Entwickler-Ecke,

Das sollte in etwa so gehen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if {hier geht meine Glaskugel grade nicht} then 
     bt_knopf.caption := 'Aus'
  else
    bt_knopfcaption := 'Ein';
end;

Das ganze wäre dann das OnClick-Event des Buttons, evtl. mit anderen Bezeichnungen. Ich denke aber, dass du dir noch ein paar Grundlagen aneignen solltest, z.B. im Crashkurs.

_________________
We are, we were and will not be.

jaenicke · Verfasst: Mo 02.03.09 16:06

Hallo und

im Forum!

bt_knopf.click ist eine Prozedur. Was willst du mit der Abfrage erreichen? Der Vergleich "= true" ist auch falsch.

Delphi ist genau wie Windows ereignisbasiert. Das heißt du reagierst in dem Ereignis OnClick auf das Klicken des Knopfes. Ich nehme an du benutzt den TMediaPlayer? Dann ginge das so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.bt_knopfClick(Sender: TObject);
begin
  if player.Mode = mpPlaying then
  begin
    player.Pause;
    bt_knopf.Caption := 'An';
  end
  else
  ...

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme