Selvstændigt Program

type
TForm = class(TForm)
{...}
protected
Procedure CreateParams(Var Params: TCreateParams); Override;
end;

implementation

{...}

Procedure TForm2.CreateParams(Var Params: TCreateParams);
Begin
inherited CreateParams(Params);
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
Params.WndParent := GetDesktopWindow;
End;

Stoney

På denne linje:

Procedure CreateParams(Var Params: TCreateParams);

Får jeg denne fejl:
[Error] Unit4.pas(59): Unsatisfied forward or external declaration: 'Tmain.CreateParams'

Den er sat i min TyPE

type
  Tmain = class(TForm)
    MainMenu1: TMainMenu;
    {bla.. bla.. bla.. en masse lort}
    procedure dxButton1Click(Sender: TObject);
    protected
    Procedure CreateParams(Var Params: TCreateParams);
    Override;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

Du skal skrive det i din "form2" eller hvad den nu hedder.
Ikke på hovedformen (main)

Stoney

nu har jeg følgende kode:

if FormExists=false then begin Application.CreateForm(Tnyuservelkommen, nyuservelkommen);
nyuservelkommen.Memo1.Lines.Add(main.Edit2.text);
nyuservelkommen.Caption := main.Edit1.Text;
nyuservelkommen.show;
end;

som står under en OnClick på en Button.!! på min main..

... hmm ... jeg er nok bare for dum til det her :)


kan du hjælpe mig lidt videre igennem Stoney

Jeg har dårligt tid lige nu.

Jeg kigger på det i aften.

Men her er min form2/unit


interface

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

type
  TForm2 = class(TForm)
  protected
Procedure CreateParams(Var Params: TCreateParams); Override;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}
Procedure TForm2.CreateParams(Var Params: TCreateParams);
Begin
inherited CreateParams(Params);
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
Params.WndParent := GetDesktopWindow;
End;

end.

Stoney

unit Unit3;

interface

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

type
  Tnyuservelkommen = class(TForm)
    Image1: TImage;
    Edit1: TEdit;
    Memo1: TMemo;
    protected
    Procedure CreateParams(Var Params: TCreateParams); Override;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  nyuservelkommen: Tnyuservelkommen;
{$R *.dfm}
Procedure CreateParams(Var Params: TCreateParams);
Begin


inherited CreateParams(Params);
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
Params.WndParent := GetDesktopWindow;
End;

end.

Får fejl i denne linje:
Procedure CreateParams(Var Params: TCreateParams);
Fejlen:
[Error] Unit3.pas(25): Identifier redeclared: 'nyuservelkommen'

var
  nyuservelkommen: Tnyuservelkommen;

implementation

//uses
{$R *.dfm}