panel-caption auslesen

Schadowmaster · Hält's aus hier Beiträge: 13

moin,

Wir sollen in der Schule mit Delphi eine Art kleinen Kalender basteln.
Als kleinen Zusatz möchte ich noch einfügen, dass man ein paar Notizen zu einem Datum per Doppelklick darauf verfassen kann.
Also hab ich einfach meinen Kalender, insgesamt 42 Panels (6 Wochen à 7 Tage), markiert und all diesen Panels ein und die selbe Funktion zugewiesen.
Nun muss ich jedoch, um die Notiz auch mit dem richtigen Tag zu verbinden und um zu wissen, ob das angeklickte Panel überhaupt einem Tag entspricht (hat ja nicht jeder Monat 42 Tage *g*) die Zahl, die im Panel steht, auslesen.

Leider hab ich keine Ahnung wie das geht. :-(

Ich hab versucht es mit einer Variable a zu machen und dann folgendem Code:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm1.Panel1DblClick(Sender: TObject);
var a : string;
begin
a := Sender.caption;  // Sender.caption soll eben der Inhalt des "sendenen" Panels sein
end;

Da gibt er mir jedoch nur die Fehlermeldung, dass Sender.caption Quatsch ist.
Hat vielleicht jemand nen Vorschlag, wie ich den Inhalt des sendenen Panels herausbekomme?
(Sender.text mag er auch nicht^^)

thx schonmal

MfG

Schadowmaster

Moderiert von Narses: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Sa 24.01.2009 um 17:30

martin300 · Beiträge: 186 Erhaltene Danke: 2

Hallo,
wenn ich die Frage richtig verstanden haben sollte, wäre hier eine Lösung:

markieren

Delphi-Quelltext

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

procedure TForm5.Panel2DblClick(Sender: TObject);
  var
  pnl : TPanel;
  name : String;
begin
if sender is Tpanel then
begin
  pnl:= TPanel(sender);
  name :=  pnl.Caption;
  showmessage(name);
end;
end;

Schadowmaster · Hält's aus hier Beiträge: 13

jo, klappt

thx

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme