Wie erstell ich dialoge?

[Hurleybird]

Zitat von DeddyH:

Zeig mal ein bisschen Code. Eigentlich sollte das reichen, obwohl Du statt public-Variablen besser Properties definieren solltest.

Delphi-Quellcode:

//Unit1:
interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Menus, ExtCtrls, Grids, unit2;
    //:= inttostr(filepos(Datei) - 1 );
type
    tVokabeln = record
              englisch: String[50];
              deutsch: String[50];
              end;
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    Button3: TButton;
    Button4: TButton;
    MainMenu1: TMainMenu;
    Datei1: TMenuItem;
    Beenden1: TMenuItem;
    N2: TMenuItem;
    ffnen1: TMenuItem;
    Neu1: TMenuItem;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Bearbeiten1: TMenuItem;
    N1: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    Button1: TButton;
    procedure Button3Click(Sender: TObject);
    procedure Beenden1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure ffnen1Click(Sender: TObject);
    procedure Neu1Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
  Vokabel: tVokabeln;
  Datei : file of tvokabeln;
  Dateiname: string[50];
  vokabelnummer : integer;
  end;

var
  Form1: TForm1;

Delphi-Quellcode:

//Unit2:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm2 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private

  public

  end;

var
  Form2: TForm2;
implementation

uses Unit1;