Delphi 4 HJÆLP

Se på nedenstående eksempel:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.CreateForm(TForm2, Form2);
  Form2.ShowModal;
  Form2.Free;

end;

end.



unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.DFM}

procedure TForm2.Button1Click(Sender: TObject);
begin
  Close;
end;

end.

Du kan også hente hele eksemplet på nedenstående link:

http://home1.inet.tele.dk/j-cgeert/nyform.zip

Snowball

P.S. Husk lige og brug Delphi kategorien næste gang du vil stille et Delphi spørgsmål ;)

Tak for hjælpen!
Kan du også lave et link til en txt fil?

eeehhh....hva\' vil du lige med en .txt fil !?!?!?!?

Snowball

At man laver en knap, så når man trykker på den åbner en et kim.txt.

Så skal du lave en ShellExecute.

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Handle,\'open\',PChar(\'kim.txt\'),pchar(\'\'),pchar(\'\'),SW_SHOWNORMAL);
end;

Husk og tilføj ShellAPI under Uses !

Du kan også prøve og søge på Shellexecute her på Eksperten. Der har tidligere været et par spørgmål om det !

Snowball

Knappen virker ikke.når man åbner zip filen og trykker på project1.dpr kommer der en fejl som hedder \"Error creating form: Invalid stream format.\"