радиокнопки

[RadioButton]

Здравствуйте,создаю радикнопки в форме,в свойствах формы указываю DockSite - True,в свойствах кнопок DragKind - dkDock,DragMode - automatic,после компиляции,если два раза щелкнуть на одну кнопку,она "перестает докаться",если сначала нажать на одну,потом на вторую,дальше все нормально,тоже самой происходит при щелчке с зажатым Ctrl,можно ли как-нибудь сделать,чтобы не было такой реакции на двойной щелчок?

[DIgorevich]

А для чего такие свойства было задавать?

[RadioButton]

чтоб кнопки можно было перемещать по форме

[Stilet]

Вот на скорую руку пример:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    procedure RadioButton1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure RadioButton1EndDock(Sender, Target: TObject; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var ax,ay:integer;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.RadioButton1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 TRadioButton(sender).DragKind:=dkDock;
 TRadioButton(sender).BeginDrag(true,50);
 ax:=x;ay:=y;
end;

procedure TForm1.RadioButton1EndDock(Sender, Target: TObject; X,
  Y: Integer);
var r:TPoint;
begin
 with TWinControl(sender) do begin
  Parent:=self;
  r:=ScreenToClient(Point(x,y));
  Left:=r.x-ax;
  top:=r.y-ay;
 end;
end;

end.

[RadioButton]

все равно та же проблема

[r9m]

Stilet
Да что ж такое то а? Стреляем по бабочкам из минигана?

procedure TForm1.RadioButton2MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  RadioButton2.Perform(WM_SYSCOMMAND, $F012, 0);
end;

[Stilet]

Стреляем по бабочкам из минигана?

Да. А точнее из Дефы
Автору насколько я понял не просто таскать нужно а чтоб еще и Радиокнопка свое состояние меняла.
Я попробовал твой код - Таскать то таскает, но я не могу ее состояние поменять, точка не ставится

[DIgorevich]

а точку можно ставить программно на MouseUP

[Stilet]

DIgorevich

Попробуй )
У меня этот вариант не работает.

[DIgorevich]

Добился результата:

procedure TForm1.rb1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  rb1.Perform(WM_SYSCOMMAND, $F012, 0);
end;

procedure TForm1.rb1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
     ReleaseCapture;
  if rb1.Checked then
    rb1.Checked:=false
  else
    rb1.Checked:=true;
end;