Neues Label während der Laufzeit

Tobias1 · Beiträge: 454 Win 98, **XP Prof** D3 Prof, **D2005 Prof**

Ich habe folgende Frage:
Ist es möglich während der Laufzeit durch Klick eines Buttons, z.B. ein neues Label zu erstellen und diesem eine Prozedur zuzuweisen ??

OlliWausD · Verfasst: Mo 20.09.04 16:22

jo geht. Hier der Code

markieren

Delphi-Quelltext

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

procedure TForm1.Button1Click(Sender: TObject);
var neuesLabel:Tlabel;
begin
  neuesLabel := Tlabel.create(nil);
  neuesLabel.Parent := self;
  neuesLabel.Caption := 'Test';
  neuesLabel.left := 40;
  neuesLabel.top := 40;
  neuesLabel.Height := 20;
  neuesLabel.Width := 100;
  neuesLabel.Visible := true;
  neuesLabel.OnClick := Ichklickdich;
end;

mfg

OlliW

ps: Der Code lässt sich nicht als Delphi-Code dastellen. Bitte bei gelegenheit ausbessern

Moderiert von Christian S.: Delphi-Tags hinzugefügt.

_________________
Take it easy

Tobias1 · Beiträge: 454 Win 98, **XP Prof** D3 Prof, **D2005 Prof**

OlliWausD hat folgendes geschrieben:

neuesLabel.OnClick := Ichklickdich;

Könnte man das so machen das Ichklickdich ein String ist ?
Dass man z.B. schreiben kann:
neuesLabel1.OnClick :='neueslabel'+inttostr(irgendein Integer der die 1 angibt).Caption:='Hallo';

GSE · Beiträge: 740 Win 2k, Win XP Pro D5 Prof, D6 Ent, D2k5 PE

du weißt schon dass er dort eine prozedur haben will und nicht deren text oder? also globale prozedur erstellen jedem label die selbe zuweisen und dann Suche in: Delphi-Forum, Delphi-Library

FINDCOMPONENT.

mfg
GSE

_________________
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs
and the universe trying to produce bigger and better idiots. So far, the universe is winning. (Richard Cook)

greg · Beiträge: 119 Windows2000, WindowsXP D5 Prof

Hallo Tobias,

mit 'neuesLabel.OnClick = IchKlickDich' wird dem neuen Label die Ereignisbehandlungsroutine 'IchKlickDich' zugewiesen. Diese Routine muss gesondert definiert werden und wird ausgeführt, wenn der Anwender das Label, welches dort zur Laufzeit erzeugt wurde anklickt. Das könnte z.B. so aussehen:

... zuerst die Deklaration ...

markieren

Delphi-Quelltext

1:
2:
3:
4:

public
  { Public-Deklarationen }
  procedure IchKlickDich(Sender : TObject);
end;

... und dann die Ereignisbehandlungsroutine ...

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

  
procedure TForm1.IchKlickDich(Sender : TObject);
begin
  ShowMessage('Hey, lass das bitte!!');
end;

In dem Beispiel von Olli wird dem neuen Label in Zeile 6 des Beispiels die Caption 'Test' zugewiesen.

Gruß
Gregor

Moderiert von Christian S.: Code- durch Delphi-Tags ersetzt.

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

OlliWausD hat folgendes geschrieben:

ps: Der Code lässt sich nicht als Delphi-Code dastellen. Bitte bei gelegenheit ausbessern

Man muss schon Delphi-Tags drum herum machen ... :roll:

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

Tobias1 · Beiträge: 454 Win 98, **XP Prof** D3 Prof, **D2005 Prof**

Wie kann ich dieses Label jetzt während der Laufzeit ansprechen z.B NeuesLabel.Caption:='Hi';

GSE · Beiträge: 740 Win 2k, Win XP Pro D5 Prof, D6 Ent, D2k5 PE

Meine Wenigkeit hat folgendes geschrieben:

und dann

FINDCOMPONENT

oder ein Array of TLabel

mfg
GSE

_________________
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs
and the universe trying to produce bigger and better idiots. So far, the universe is winning. (Richard Cook)

OlliWausD · Verfasst: Di 21.09.04 08:53

Christian S. hat folgendes geschrieben:

OlliWausD hat folgendes geschrieben:

ps: Der Code lässt sich nicht als Delphi-Code dastellen. Bitte bei gelegenheit ausbessern

Man muss schon Delphi-Tags drum herum machen ... :roll:

des is mir schon bekannt, aber der "Knopf" (schönes Wort

) ging nicht.
Weder bei selectierung der Zeilen, noch ohne.

Najagut. Is egal. jetzt funktionierts wieder

markieren

Delphi-Quelltext

1:
2:
3:
4:

dfsdfasdfa
sdf
asdf
sadfasdf

mfg

OlliW

_________________
Take it easy

Tobias1 · Beiträge: 454 Win 98, **XP Prof** D3 Prof, **D2005 Prof**

Wie geht das mit Array of Tlabel??

kann ich dann schreiben: label[1].caption:='Hallo';

Das wäre super wenn das geht!

GSE · Beiträge: 740 Win 2k, Win XP Pro D5 Prof, D6 Ent, D2k5 PE

eigentlich schon

wenn du zum Beispiel 5 Labels hast, kannst dula: array[1..5]of Tlabel;schreiben, im create oder so musst du die labels dann noch createn und im close( oder destroy) freigeben (free). Zur Laufzeit kannst du dann so, wie du geschrieben hast drauf zugreifen.

mfg
GSE

_________________
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs
and the universe trying to produce bigger and better idiots. So far, the universe is winning. (Richard Cook)

Tobias1 · Beiträge: 454 Win 98, **XP Prof** D3 Prof, **D2005 Prof**

Vielen Dank!!

Tobias1 · Beiträge: 454 Win 98, **XP Prof** D3 Prof, **D2005 Prof**

Und wie kann ich dieses Array-Label dann während der Laufzeit wieder löschen? :?!?:

.Chef · Beiträge: 1112

Antwort steht doch schon oben: Mit Free. Oder wo hängts?

_________________
Die Antworten auf die 5 häufigsten Fragen:
1. Copy(), Pos(), Length() --- 2. DoubleBuffered:=True; --- 3. Application.ProcessMessages bzw. TThread --- 4. ShellExecute() --- 5. Keine Vergleiche von Real-Typen mit "="!

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

Hallo!

Mit .Free!

Gruß
Tino

Tobias1 · Beiträge: 454 Win 98, **XP Prof** D3 Prof, **D2005 Prof**

Dankeschön

GSE · Beiträge: 740 Win 2k, Win XP Pro D5 Prof, D6 Ent, D2k5 PE

mit fällt grad ein, dass ich FIndComponent geschrieben hab, ist natürlich witzlos. kann man ja auch über den Sender machen.

mfg
GSE

_________________
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs
and the universe trying to produce bigger and better idiots. So far, the universe is winning. (Richard Cook)

Tobias1 · Beiträge: 454 Win 98, **XP Prof** D3 Prof, **D2005 Prof**

Wie kann ich von Form1 ein Label auf Form2 erstellen??

_________________
Auch das schlechteste Buch hat seine gute Seite: die letzte. (John Osborne)

Lossy eX · Beiträge: 1048 Erhaltene Danke: 4

Normal erstellst du es so.

markieren

Delphi-Quelltext

1:
2:

  neuesLabel := Tlabel.create(nil);
  neuesLabel.Parent := self;

Wenn du es auf Form2 erstellen möchtest, dann musst das Parent in diesem Falle Form1 (Also Self) wieder spiegelt durch ein Form2 ersetzen. Natürlich muss das Form2 dann in dem Formular bekannt sein. Das wars dann auch schon.

PS: Wenn du eine Owner im Create angegeben hättest, dann müsstest du diesen natürlich auch ersetzen.

_________________
Nur die Menschheit ist arrogant genug, um zu glauben sie sei die einzige intelligente Lebensform im All. Wo nicht mal das nachhaltig bewiesen wurde.

Tobias1 · Beiträge: 454 Win 98, **XP Prof** D3 Prof, **D2005 Prof**

Das geht jetzt!

_________________
Auch das schlechteste Buch hat seine gute Seite: die letzte. (John Osborne)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme