радиокнопки

[RadioButton]

Сообщение от DIgorevich

А приведите, пожалуйста, Ваш код.

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 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.

[DIgorevich]

вот Вы всё оставили, как есть, а Вам уже написали код для перемещения кнопок без всяких доков.

[r9m]

Мне всё равно не понятно, что нужно сделать

[RadioButton]

Сообщение от r9m

Мне всё равно не понятно, что нужно сделать

чтобы можно было мышкой двигать кнопку по форме,но после каждого второго перетаскивания или после двойного щелчка по кнопке она отсоединяется от формы,нужно чтоб не отсоединялась.

[DIgorevich]

RadioButton, Вы нарочно мои посты игнорируете? Вот Вам код, ВМЕСТО Вашего (радиокнопки свойства по дефолту):

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;
     rb1.Checked := not rb1.Checked;

end;

[RadioButton]

Сообщение от DIgorevich

вот Вы всё оставили, как есть, а Вам уже написали код для перемещения кнопок без всяких доков.

я поменял,но их все равно нельзя перемещать,может быть я сделал что-то не так,если не затруднит,скиньте пожалуйста какой должен быть код?

[RadioButton]

Сообщение от DIgorevich

RadioButton, Вы нарочно мои посты игнорируете? Вот Вам код, ВМЕСТО Вашего (радиокнопки свойства по дефолту):

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;
     rb1.Checked := not rb1.Checked;

end;

unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.RadioButton1MouseMove(Sender : TObject; Shift: TShiftState; X,
Y: Integer);
begin
RadioButton1.Perform(WM_SYSCOMMAND, $F012, 0);
end;

procedure TForm1.RadioButton1MouseDown(Sender : TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
RadioButton1.Checked := not RadioButton1.Checked;

end;

попробовал вот так,с дефолтными значениями они не перемещаются по форме

[DIgorevich]

Вот посмотри проект:
Button.rar

P.S.: Для оформления кода, пользуйтесь тэгом [СODE][/СODE]

[RadioButton]

Сообщение от DIgorevich

Вот посмотри проект:
Вложение 28655

P.S.: Для оформления кода, пользуйтесь тэгом [СODE][/СODE]

спасибо,работает лучше,но теперь нельзя переместить кнопку,в которой точка,то есть чтобы переместить два раза одну кнопку,нужно переместить ее первый раз,потом кликнуть на нее,и только тогда можно перемещать второй раз.

[DIgorevich]

Поставь код:

  (Sender as TRadioButton).Perform(WM_SYSCOMMAND, $F012, 0);

В обработку события НЕ OnClick, а в MouseMove.