Andra forms komponenter

[Jim1]

Hur gör jag för att använda ett annat forms komponenter. Vilken kod ska jag skriva ? Ex. en label på form2 ska kunna anta en string som ligger i en listbox på form1.

 

Tack på Förhand

 

Jim

[J S]

Form2.Label1.Caption := 'String i form1';

 

Altså du skriver formulärets namn och sedan komponentens. För att detta ska fungera ska du skriva Form2s unit namn i form1 uses. Om du inte gör detta får du nog en fråga om detta vid kompileringen och delphi fixar detta själv.

 

typ:

uses

unit2;

 

Koden i hela form1 skulle se ut ungefär såhär:

 

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

 

//Obsevera unit2 som inhåller TForm2

uses Unit2;

 

{$R *.DFM}

 

procedure TForm1.Button1Click(Sender: TObject);

begin

form2.Label1.Caption := 'Sträng från form1';

end;

 

end.