Avatar billede jakob/cosmo Nybegynder
23. februar 2002 - 17:48 Der er 6 kommentarer og
2 løsninger

Pro.

Hej Allesammen!

Jeg har lige endnu et problem her:

Jeg har en Form1, Ved et tryk på en knap i denne Form1 skal Programmet "ShowModal" en anden Form(Form2) + Ændre en variabl i Form2(unit2) til fx 1.
Ved et tryk på en knap i Form2(Alså den der blev kaldt frem) Skal den gøre en ting i forhold til variablen som jeg ændrede i Form1(unit1);

Alså mit spg. er:
-Kan jeg ændre en variabl fra en anden Form?
-Kan man lave en global variabl som Virker i alle projectets form'er/unit'er?

Avatar billede jakob/cosmo Nybegynder
23. februar 2002 - 17:50 #1
Eller hvad skal jeg så gøre?
Avatar billede martinlind Nybegynder
23. februar 2002 - 17:52 #2
Du kan lave en unit ( uden form ) du user i alle dine unit's og putte globale var der ned, og du kan skrive form1.myvar := 1;
Avatar billede jakob/cosmo Nybegynder
23. februar 2002 - 18:01 #3
Mener du ikke unit1.myvar := 1;
Avatar billede jakob/cosmo Nybegynder
23. februar 2002 - 18:10 #4
Jeg har nu lavet det. Min variabl unit hedder: Variantsused.

Men den kommer med denne error:
[Error]File not fund: 'Variantsused.dfm'

Og jeg har gemt min nye unit!!

Hvad gør jeg galt
Avatar billede jakob/cosmo Nybegynder
23. februar 2002 - 18:11 #5
Min nye unit ser sådan ud:

unit Variantsused;

interface

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


var
  antil: Integer;

implementation

{$R *.dfm}

end.
Avatar billede jakob/cosmo Nybegynder
23. februar 2002 - 18:12 #6
Antil en den før omtalte variabl
Avatar billede martinlind Nybegynder
23. februar 2002 - 19:42 #7
Din Unit SKAL se sådan ud:

unit Variantsused;

interface

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


var
  antil: Integer;

implementation

end. 
--------------------------

Uden {$R *.dfm} det er jo en unit uden Form

/Martin
Avatar billede geek1011 Nybegynder
23. februar 2002 - 23:50 #8
Unit unit1
interface

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

type
  TForm1 = class(TForm)
  procedure formcreate(sender : TObject);

var
  form1 : TForm1;

implementation

{$R *.dfm}
procedure TForm1.FormCreate(sender : TObject);
begin
with form2 do
begin
  Variable := 54;
end;
end;
end.

unit unit2

interface

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

type
  TForm2 = class(TForm)
  procedure formcreate(sender : TObject);

var
  form2 : TForm1;
  variable : integer;
       
implementation

{$R *.dfm}
procedure TForm2.FormCreate(sender : TObject);
begin
  variable := 32;
end;
end. 

Sådan laver du et program, der ændrer variablen i en anden Form.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester