Aha wie entwerfe ich es den in der
IDE ?
Was ist das für eine Frage?
Normal über den Form-Designer?
Datei -> Neu ->
VCL-Formularanwendung
Dann nochmal
Datei -> Neu ->
VCL-Formular
und da hast du in der Formularansicht doch (je nach Delphi-Version) oben oder rechts die ganzen Komponenten, die du auf die Form ziehen kannst?
Zum Beispiel ein Screenshot von Turbo Delphi. So ähnlich sieht's auch in Delphi XE aus. Da hast du bei 6 die verfügbaren Komponenten. In älteren Delphi-Versionen sind die Komponenten bei 1.
http://0.tqn.com/d/delphi/1/0/U/a/turbo_delphi_ide.gif
Wenn du so ein neues Projekt angelegt hast, ziehst du in der Form2 einfach ein TLabel, TEdit und TButton auf die Form. In den Code schreibst du bei TForm2 in Public "Passwort: String;", das sollte dann so aussehen:
Delphi-Quellcode:
unit Form2;
interface
uses
...
type
TForm2 =
class(TForm)
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
private
{ ... }
public
{ ... }
Passwort:
String;
end;
var
Form2: TForm2;
implementation
end.
Dann doppelklickst du im Form-Designer (Umschalten zw. Code und Form ist immer F12) auf Button1. Dadurch wird ein Event für den Button1 angelegt:
Delphi-Quellcode:
implementation
procedure TForm1.Button1Click(Sender: TObject);
begin
// ...
end;
end.
Dort schreibst du rein:
Delphi-Quellcode:
implementation
procedure TForm2.Button1Click(Sender: TObject);
begin
Passwort := Edit1.Text;
Close;
// Alternativ, wenn du weißt wie
// Passwort := XorStr(Edit1.Text);
end;
end.
Dann wechselst du zurück auf Unit1 bzw Form1. Ziehst dort einen TButton auf die Form, damit das Ganze ungefähr so aussieht:
Delphi-Quellcode:
unit Form1;
interface
uses
...
type
TForm1 =
class(TForm)
Button1: TButton;
private
{ ... }
public
{ ... }
end;
var
Form1: TForm1;
implementation
// WICHTIG!
uses
Unit2;
end.
Dann doppelklickst du wieder auf den Button, Code:
Delphi-Quellcode:
implementation
// WICHTIG!
uses
Unit2;
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.ShowModal;
ShowMessage(Form2.Passwort);
end;
end.
Fertig. Wenn du dich nun nicht zu ... anstellst, sollte das laufen.