ein objekt von mehreren forms benutzen..

[napstar]

hi.. habe mal wieder eine merkwürdige frage an euch :D..
ich habe mehrere Units und Forms in meinem projekt.. ich habe auf meiner 1.Form ein objekt.. dieses objekt würde ich gerne auch auf meiner 2. und 3. Form anzeigen lassen... ich will es nicht einfach kopieren, weil ich die einstellungen des objektes in der 1. Form immer wieder mal verändere..

kann ich also einen "spiegelbild" des objektes erstellen, dass in jeder Form angezeigt wird..?

[Sir Rufo]

Übergib das Objekt einfach an die anderen Formen

Was meinst du mit "auf meiner Form" ... hört sich an wie ein Control (TEdit, TMemo, ...)?

[napstar]

is ne komponente von tms

wie übergebe ich das?.. verstehe ich nicht ganz..

[Morphie]

Es gibt mehrere Möglichkeiten
1. erstelle dir eine Form mit dem Control drauf, von der du dann anschließend ableitest
2. platziere das Control auf einem Frame und binde das Frame in beide Forms ein
3. leite dir ein eigenes Control ab und setze dort die Einstellungen so, wie du sie haben willst
4. übergebe das Control irgendwie an das 2. Form
4a. als Property
4b. über den Constructor
4c. über eine Methode

je nachdem was passender zu deinem Problem ist, kannst du dir eine Möglichkeit davon aussuchen...

[stahli]

In jedem Fall kann ein sichtbares Control nur an einer Stelle angezeigt werden. Es gibt nur einen Parent.

Du könntest es ohne weiteres von einem Formular auf ein anderes verschieben, aber nicht gleichzeitig in zwei Formularen anzeigen.

In dem Fall brauchst Du zwei verschiedene Komponenten, denen Du dann die gleichen Werte/Daten/Eigenschaften zuweist. Dafür gibt es dann je nach Situation wie beschrieben mehrere Wege.

[QuickAndDirty]

Ich glaube für alle Published Properties wirkt
aCopy.assign(aOriginal);

[Sir Rufo]

Zitat:

Zitat von QuickAndDirty (Beitrag 1208918)

Ich glaube für alle Published Properties wirkt
aCopy.assign(aOriginal);

Nein, nur für die, die in der

Delphi-Quellcode:

Assign

bzw.

Delphi-Quellcode:

AssignTo

Methode berücksichtigt wurden ;)

Also am besten dort einmal nachschauen

[QuickAndDirty]

Zitat:

Zitat von Sir Rufo (Beitrag 1208921)

Zitat:

Zitat von QuickAndDirty (Beitrag 1208918)

Ich glaube für alle Published Properties wirkt
aCopy.assign(aOriginal);

Nein, nur für die, die in der

Delphi-Quellcode:

Assign

bzw.

Delphi-Quellcode:

AssignTo

Methode berücksichtigt wurden ;)

Also am besten dort einmal nachschauen

Im Zweifel noch mal in Belgien anrufen und um Berücksichtigung bitten :)

[napstar]

danke an allen.. ich weiß zwar nicht was damit gemeint ist.. aber ich mach mich schlau sobald ich zuhause bin :)

[question]

Dear All,

I have two class, TCalculation and TAccounts, i would like to access one object from one class to another,I have informed that AssignTo would be the appropriate to use, could you please pointing me from the following example, how to use AssignTo in this case

Code:

//Unit1
Unit Unit1
type TCalculation = class(TForm)
  private
  protected
   FNewvalue: Boolean;
  public
   property Newvalue: Boolean read FNewvalue;
   
  end;

//Unit2
Unit Unit2
type Taccounts = class(TForm)

 interface

uses
  Unit1
   
  private
  protected
  public
    procedure Checkvalue(Sender: TObject);
  end;

implementation

procedure Taccounts .Checkvalue(Sender: TObject);
begin
//here i want to acces the Boolean (FNewvalue) from Unit1
// i would like to mention that, i need the varable with its value
End;

[DeddyH]

This is the same problem, but a completely different question and situation than yesterday. It is quite hard to post a solution if you don' t know what the problem is. I wrote a short example in Delphi 7. It is not good at all because both units reference each other (you should avoid this if possible), but it works in this simple case.
Unit1:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TCalculation = class(TForm)
    btnSetValue: TButton;
    btnShowAccounts: TButton;
    procedure btnSetValueClick(Sender: TObject);
    procedure btnShowAccountsClick(Sender: TObject);
  private
    { Private-Deklarationen }
    FValue: integer;
    function GetValue: integer;
    procedure SetValue(const NewValue: integer);
  public
    { Public-Deklarationen }
    property Value: integer read GetValue write SetValue;
  end;

var
  Calculation: TCalculation;

implementation

{$R *.dfm}

uses Unit2; //Added Unit2

{ TCalculation }

function TCalculation.GetValue: integer;
begin
  Result := FValue;
end;

procedure TCalculation.SetValue(const NewValue: integer);
begin
  FValue := NewValue;
end;

procedure TCalculation.btnSetValueClick(Sender: TObject);
begin
  Value := Value + 1;
end;

procedure TCalculation.btnShowAccountsClick(Sender: TObject);
var
  Accounts: TAccounts; //locale variable, I deleted the global one in Unit2
begin
  Accounts := TAccounts.Create(nil);
  try
    Accounts.ShowModal;
  finally
    Accounts.Free;
  end;
end;

end.

Unit2:

Delphi-Quellcode:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Unit1; //Added Unit1

type
  TAccounts = class(TForm)
    btnGetValue: TButton;
    edtValue: TEdit;
    procedure btnGetValueClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

implementation

{$R *.dfm}

procedure TAccounts.btnGetValueClick(Sender: TObject);
begin
  edtValue.Text := IntToStr(Calculation.Value);
end;

end.

The prefix "btn" stands for TButton, "edt" for TEdit.