Wie Objekt eines Programms in anderes Programm einbinden?

[aaaaaaaaaa_10]

Hallo,
ich habe in einem Programm A einer Unit x eine Klasse. Aus dieser Klasse möchte ich gerne ein TStaticText Objekt in einem Programm B verwenden. Geht das? Wenn ja, wie?

[aaaaaaaaaa_10]

Ist das richtig, wenn ich unter uses die unit einbinde und denn bei der class einfach das objekt einfüge?

[hoika]

Hallo,

5 Minuten gelesen und nichts verstanden ...

Zitat:

ich habe in einem Programm A einer Unit x eine Klasse

Program A
Unit x
Klasse

etwa so ?

TStaticText steht in der Komponenten-Leiste.



Heiko

[aaaaaaaaaa_10]

genau so

[Klaus01]

Du meinst wirklich Programm A.

Und die willst aus dem laufenden Programm A
auf die Instanz des Objektes xy zugreifen?

Werde mal etwas deutlicher!

Grüße
Klaus

[aaaaaaaaaa_10]

Also ich habe im Programm A ein Label (z.B.) und da wird was eingetragen und in Programm B brauch ich das, wsa da steht.

[turboPASCAL]

Also Daten von Programm A an Programm B senden...

suche mal nach: WM_COPYDATA

[hoika]

Hallo,

aha, es sind also 2 Programme.
So einfach geht es nicht.

Aber such mal nach
FindWindow(Ex)
GetWindowText

Du musst dir erst einmal das Handle des Statics besorgen (FindWindow).
Dazu brauchst du erst mal das Handle des Programmes selber.
FindWindow erlaubt es z.B., nach dem Klassen-Namen zu suchen (WinSpy sagt dir den).
Das ist der Form-Name des Hauptforms.
Den würde auch also nicht Form1 lassen ...
Dann hangelst du dich weiter mit FindWindowEx bis zum Statictext.


Ein Suchen nach FindWindow hier sollte schon helfen.


Heiko

[DeddyH]

Wenn es sich bei beiden Programmen um seine eigenen handelt, wäre IMHO eine IPC-Lösung (WM_COPYDATA wurde ja bereits genannt) der eleganteste Weg.

[aaaaaaaaaa_10]

Ja, es handelt sich um zwei eigene Programm. Ich probiere es mal

[aaaaaaaaaa_10]

Delphi-Quellcode:

   with aCopyData do begin
    dwData := 0;
    cbData := StrLen(pChar(t.Name));
    lpData := pChar(t.Name);
  end;

  SendMessage(FindWindow('TKomMainWnd', nil), WM_COPYDATA, Longint(Handle),
              Longint(@aCopyData));

Also so sende ich und so

Delphi-Quellcode:

procedure TKomMainWnd.WMCopyData(var Msg: TWMCopyData);

begin
  oldi := String(PChar(Msg.CopyDataStruct.lpData));
end;

 procedure test(Sender: TObject);
begin
 ShowMessage(oldi);
end;

empfange ich, aber es erscheint nur eine leere Nachricht...

[Luckie]

Hier ist ein Beispiel: http://www.michael-puff.de/Developer...COPYDATA.shtml

PS: Du solltest dich als Berater bei eine Quizzsendung bewerben. Biite denk beim nächsten mal vor dem Posten genau nach, was du eigentlich willst und versuch dein Anliegen, klar, deutlich und umfassend darzulegen. Und wenn das dann noch in vollständigen Sätzen geschieht, kann man dir eventuell sogar helfen.