Скачать: CL | DM;

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

← →
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;

---

← →
Sword-Fish ©   (2003-07-08 14:41) [5]

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

---

← →
DJ_Sedoy ©   (2003-07-08 15:24) [6]

Назначь этой кнопке (или любому контролу на форме) обработчики событий 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 в другое приложение, то это отдельный разговор.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c