Label als Button ??

ramius · Hält's aus hier Beiträge: 2

Hi ,

also ich möchte ein label als button benutzen geht das ?
habe gelesen das soll mit Labelclick gehen aber wie genau ??

also mein Code sieht so aus :

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Image3: TImage;
    Label14: TLabel;
    procedure click2start(Sender: TObject);
    procedure Aclick(Sender: TObject);
    procedure Bclick(Sender: TObject);
    procedure Label12Click(Sender: TObject);
    procedure Label13Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  antwort,a,b,c,d: Boolean;

implementation

{$R *.DFM}

procedure TForm1.click2start(Sender: TObject);
begin
label9.Caption := 'Wer hat das Programm hier geschrieben?';
label10.caption := 'ich';
label11.Caption := 'DU';
label12.Caption := 'Sie';
label13.Caption := 'es';
end;
begin
if antwort = a then label14.caption := 'gewonnen';
end;

procedure TForm1.Aclick(Sender: TObject);
begin
antwort := a;
end;

procedure TForm1.Bclick(Sender: TObject);
begin
antwort := b;
end;

procedure TForm1.Label12Click(Sender: TObject);
begin
antwort := c;
end;

procedure TForm1.Label13Click(Sender: TObject);
begin
antwort := b;
end;

end.

also ich möchte das wenn ich auf label10 klicke, das er dann antwort := a setzen soll. damit ich woanders abfragen kann, ob antwort = a ist. dann soll er was tuen sonst nichts.

kann mir da jemand helfen ??

THX

Moderiert von Peter Lustig: Code- durch Delphi-Tags ersetzt.

Ehemaliges Mitglied Erhaltene Danke: 1

ramius hat folgendes geschrieben:

also ich möchte ein label als button benutzen geht das ?
habe gelesen das soll mit Labelclick gehen aber wie genau ??

Du setzt das Label auf die Form, klickst es an, wählst im Objektinspektor den Eintrag "OnClick" aus -> Doppelklick -> und schreibst im Editorfenster den Code rein, den du beim Klick gern ausführen lassen möchtest.

Siehst so aus, als hättest du das auch verstanden, aber was ist denn das:

Zitat:

markieren

Delphi-Quelltext

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

procedure TForm1.click2start(Sender: TObject);
begin
label9.Caption := 'Wer hat das Programm hier geschrieben?';
label10.caption := 'ich';
label11.Caption := 'DU';
label12.Caption := 'Sie';
label13.Caption := 'es';
end;
begin
if antwort = a then label14.caption := 'gewonnen';
end;

ramius · Hält's aus hier Beiträge: 2

was muss ich denn da bei OnClick rein schreiben ??? oder ist das egal.

es ging mir mehr mehr darum, das wenn ich label10 klicke das er dann Antwort := a setzt.

markieren

Quelltext

1:
2:
3:
4:

procedure TForm1.Aclick(Sender: TObject);
begin
antwort := a;
end;

und dass ich an einer anderen stelle abfragen kann ob Label10 geklickt worden ist

markieren

Quelltext

1:
2:
3:

begin
if antwort = a then label14.caption := 'gewonnen';
end;

oder geht es auch das ich abfrage ????

markieren

Quelltext

1:
2:
3:

begin
if Tform.Aclick= treue then label20.caption:='richtig';
end;

Karlson · Beiträge: 2088

Hallo,

Wo liegt den gerade dein Problem?!

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.Label10Click(Sender: TObject);
begin
 antwort := a;
end;

schonmal so probiert?
Ich schätze mal die Procedure clickstart führt sozusagen die auswertung aus?!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme