Einzelnen Beitrag anzeigen

nuclearping

Registriert seit: 7. Jun 2008
708 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#4

AW: Funktion in selbst erstellter Form

  Alt 29. Sep 2012, 17:37
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.

Geändert von nuclearping (29. Sep 2012 um 20:25 Uhr)
  Mit Zitat antworten Zitat