1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TfrmMain.btn_createpanelsClick(Sender: TObject);
var
  i : Integer;
begin
  SetLength(pan_rechner,lb_ergebnisseDNS.Items.Count);
  for i := 0 to lb_ergebnisseDNS.Items.Count - 1 do
  begin
    pan_rechner[i] := TPanel.Create(Self);
    pan_rechner[i].Parent := sb_hosts;
    pan_rechner[i].Width := 125;
    pan_rechner[i].Height := 40;
    pan_rechner[i].Left := (0);
    pan_rechner[i].Top := (i * 40);
    pan_rechner[i].Name := 'PANEL' + IntToStr(i);
    pan_rechner[i].Caption := lb_ergebnisseDNS.Items[i];
    pan_rechner[i].OnClick := PanelMove;
  end;
  lab_rechnercount.Caption := 'Rechner: ' + IntToStr(i);
end;                    

1:
2:
3:
4:
5:

procedure TfrmMain.PanelMove(Sender : TObject);
begin
  ReleaseCapture;
  TPanel(Sender).perform(WM_SysCommand, $F012, 0);
end;                    

1:
2:

procedure TfrmMain.PanelMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);