Kleiner Vorschlag:
Unit einbinden
Delphi-Quellcode:
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, MessCom, StdCtrls,MessCom;
in der Deklaration deines Forms ein Messcom Objekt hinzufügen
Delphi-Quellcode:
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
MyMesscom : TMesscom;
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
danach im Form Create.
Comnr sollte nach dem Code irgendwas zwischen 1 und 4 sein.
Delphi-Quellcode:
begin
MyMesscom := TMessCom.Create(1);
end;
Jetzt kann irgendwo innerhalb des Codes deines Forms mit MyMesscom gearbeitet werden.
MyMesscom.Hold();
Greetz