Avatar billede jakob/cosmo Nybegynder
09. februar 2002 - 17:19 Der er 1 kommentar og
2 løsninger

Procedure

hej alle!!

hvordan skal jeg gøre dette.
Jeg vil henvise til en procedure i en anden unit.
Men ved ikke hvordan jeg skal skrive det.

fx. ved et tryk på en kortbunke i en unit skal en procedure starte i en anden unit.
denne procedure skal ændre texten i en TEdit box til: Edit1.Text:= 'hej';

Jeg kan godt finde ud af at programmere selve klikket på bunken(if Pile=p1 Then).
Men det er Henvisningen til en anden unit med proceduren ÆndreText jeg ikke kan finde ud af. Og hvordan jeg laver denne procedure der ændre texten i en Edit boxen til: Edit1.Text:= 'hej';
(Hvor,erklære,uses)????
Avatar billede stoney Nybegynder
09. februar 2002 - 17:21 #1
Sæt din procedure ind under public

Stoney
Avatar billede dkn Nybegynder
09. februar 2002 - 17:53 #2
Lav først en procedure som gør det der skal gøres. ex:

Puplic
Procedure ChangeText;
  end;
var
  Form1: TForm1;

implementation

Procedure TForm1.ChangeText;
begin
Edit1.Text:= 'hej';
end;

i den anden form du har skriver du bare på en button click:
Form1.ChangeText;

Delphi skulle nu selv se at du linker til en anden form, den spørger som om den skal adde linket, og du siger bare ja, og så virker det.

dkn
Avatar billede jhc Nybegynder
09. februar 2002 - 21:32 #3
unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
AendreTekst(Edit1);
end;

end.
____________________________________________________________
unit Unit2;
interface

uses
  StdCtrls;
Procedure AendreTekst(Edit : TEdit);

implementation
Procedure AendreTekst(Edit : Tedit);
begin
  Edit.Text := 'Hej';
end;
end.
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