Einzelnen Beitrag anzeigen

oki

Registriert seit: 30. Dez 2002
Ort: Brandshagen
1.819 Beiträge
 
Delphi 2007 Professional
 
#11

Re: Aktuelle Daten der seriellen Schnittstelle anzeigen

  Alt 3. Sep 2007, 14:47
Zitat von eticket:
Muß ich hier einen 2. Thread erstellen mit dem Fenster und den Text dann an dieses Fenster übergeben?
Wie mache ich das am geschicktesten?
Michael
Nein, mußt du nicht.

du definierst in deinem zweiten Formular ein neues Property:
Delphi-Quellcode:
TForm2 = class(TForm)
...
private
  FMeineDaten : String;
  procedure SetMeinedaten(Value : String);
...
public
  property MeineDaten : String read FMeineDaten write SetMeineDaten;


.....

procedure TForm2.SetMeineDaten(Value : String);
begin
  FMeinedaten := Value;
  StaticText1.Caption := Value;
  Invalidate;
end;
Übergabe:
Delphi-Quellcode:
procedure TForm1.RefreshValues(Sender: TObject; Daten : String);
Var Text : String;
begin
Text := Daten;
// und im Hauptfenster aktualisieren
...
  Form2.MeineDaten := Text;
...
end;
Durch setzen der Property MeineDaten wird durch die Setter-Methode SetMeineDaten die Anzeige in deinem zweiten formular aktualisiert. dieses sollte natürlich aktiv sein, sonst mußt du natürlich noch ein Form2.Show einfügen.

Gruß oki
42
  Mit Zitat antworten Zitat