Aktuelle Daten der seriellen Schnittstelle anzeigen

[oki]

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