deviceselect.pas

unit deviceselect;

interface

uses Windows, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls, ComCtrls;

type
  Tdeviceselectbox = class(TForm)
    Panel1: TPanel;
    OKButton: TButton;
    ListView1: TListView;
    CancelButton: TButton;
    Label3: TLabel;
    EditBaudrate: TComboBox;
    procedure ListView1DblClick(Sender: TObject);
    procedure OKButtonClick(Sender: TObject);
    procedure CancelButtonClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  deviceselectbox: Tdeviceselectbox;
implementation

{$R *.dfm}



procedure Tdeviceselectbox.CancelButtonClick(Sender: TObject);
begin
  deviceselectbox.ModalResult:= mrCancel;
end;

procedure Tdeviceselectbox.OKButtonClick(Sender: TObject);
begin
  deviceselectbox.ModalResult:=mrCancel;
  if deviceselectbox.ListView1.itemindex >= 0 then
    deviceselectbox.ModalResult:=mrOK;
//  if (ComboBoxComPort.ItemIndex > 0) then
//    deviceselectbox.ModalResult:= mrOK;
end;


procedure Tdeviceselectbox.ListView1DblClick(Sender: TObject);
begin
//  ComboBoxComPort.ItemIndex:=0;
  OKButtonClick(Sender);
end;

end.