Создание кнопки

← →
Sword-Fish © (2003-07-08 12:32) [0]

Добрый день !!!
Вы мне не подскажите как создать кнопку, т.е я нажимаю кнопку "START" и на моей форме появляется совршенно новая кнопка определенных размеров и с именем Button0 и текстом "Button0"
Надо вроде бы использовать тип TControl и потом писать MyBtn:=TControl.Create(self); или не так ???
Подскажите please !!!

← →
Poirot © (2003-07-08 12:35) [1]

TButton
parent:=form1 or self in in form func.

← →
Anatoly Podgoretsky © (2003-07-08 12:40) [2]

Надо использовать TButton.Create

← →
Sword-Fish © (2003-07-08 14:11) [3]

Понятно ... спасибо !!!
А еще такой вопрос !!!
Как теперь созданную кнопку можно было бы тоскать методом Drag-and-Drop ???
Помогите пожалуйста примером или чем еще !!!

← →
Ozone © (2003-07-08 14:12) [4]

var
MyButton: TButton;
begin
MyButton := TButton.Create(self);
MyButton.(Width,Heght,Top,Left) := ...
MyButton.Parent := Form1;
end;

Так как насчет Drag-and-Drop ???

Назначь этой кнопке (или любому контролу на форме) обработчики событий ControlMouseMove и ControlMouseDown.
Например так:

MyButton: TButton;
....
MyButton:=TButton.Create;
MyButton.onMouseDown=ControlMouseDown;
MyButton.OnMouseMove=ControlMouseMove;
....

Только помни, что эти обработчики должны быть по любому методами класса. Как-то:

procedure TfrmConstructor.ControlMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if (ssLeft in Shift) then
Begin
TControl(Sender).Left:=TControl(Sender).Left+x-DragPoint.X;
TControl(Sender).Top :=TControl(Sender).Top+y-DragPoint.y;
End;
end;

procedure TfrmConstructor.ControlMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
DragPoint:=Point(X,Y);
end;

Теперь таскай её, сколько душе угодно.
Если тебе это нужно.

А если тебе нужно реально Drag&Drop в другое приложение, то это отдельный разговор.

Создание кнопки Найти похожие ветки