Formular zur Laufzeit

Melcho · Beiträge: 145 XP

Moin ich hab da ein Programm da kann man mehrere Notizen machen wenn man sein Text geschrieben hat drückt man OK und dann soll der Text auf einer Form auf dem Desktop liegen hat einer ein Plan wie ich das hin bekomme :flehan:

Danke an alle

_________________
PCP saved my life

WeBsPaCe · Verfasst: Mi 23.03.05 09:46

Also mit...

markieren

Delphi-Quelltext

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

procedure Blabla;
var
Fenster: TForm;
begin
Fenster := TForm.Create(Application);
Fenster.Show;               //bin mir nicht sicher
Fenster.Visible := True;    //was von beidem stimmt
end;

...solltest du eigentlich ein neues Formular erstellen können.

Dann noch n Label drauf...

markieren

Delphi-Quelltext

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

procedure Blabla2;
var
Text: TLabel;
begin
Text := TLabel.Create(Fenster);
Text.Visible := True;    //schadet nicht ;)
end;

...und dann mal sehen...

Fabian W. · Beiträge: 1766 Win 7 D7 PE

WEnn du kein Label erstellen möchtest mach es doch einach mit Form.Canvas :wink:

Melcho · Beiträge: 145 XP

Danke das mit dem Fenster funktoiniert perfekt aber wie spreche ich das Label dann an das kennt er dann auf der erzeugten form nicht ?

_________________
PCP saved my life

wdbee · Beiträge: 628 Erhaltene Danke: 1

Welchen Text hat denn dein Label? Kein Text?

Melcho · Beiträge: 145 XP

Doch das Label soll den Text einer Memo Box nehmen.

_________________
PCP saved my life

wdbee · Beiträge: 628 Erhaltene Danke: 1

Der Owner ist per Create da, der Parent fehlt dennoch:

markieren

Delphi-Quelltext

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

var
  Text: TLabel;
begin
  Text := TLabel.Create(Form1);
  Text.Parent := Form1;           // Wichtig, wenn von Windows dargestellt werden soll
  Text.Left := 100;               
  Text.Top := 100;
//  Text.Caption Der Own:= 'Mein Text'; // Copy/Paste-Fehler
  Text.Caption := 'Mein Text';
end;

Melcho · Beiträge: 145 XP

DDDDDDDAAAAAAAAAAAAANNNNNNNNNNNNNKKKKKKKKKKKKKEEEEEEEEEEEE geht alles ihr seid die BESTEN :flehan:

_________________
PCP saved my life

WeBsPaCe · Verfasst: Mi 23.03.05 10:38

wdbee hat folgendes geschrieben:

markieren

Delphi-Quelltext

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

var
  Text: TLabel;
begin
  Text := TLabel.Create(Form1);
  Text.Parent := Form1;           // Wichtig, wenn von Windows dargestellt werden soll
  Text.Left := 100;               
  Text.Top := 100;
  Text.Caption Der Own:= 'Mein Text';
end;

Was ist denn das?? :shock:

Fabian W. · Beiträge: 1766 Win 7 D7 PE

Das würde mich auch interresieren :roll:

!

WeBsPaCe · Verfasst: Fr 01.04.05 20:00

wdbee??

Karlson · Beiträge: 2088

Er hat editiert...

WeBsPaCe · Verfasst: Fr 01.04.05 20:03

Ooooops... :oops:

Sorry.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme