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

Всплываюий Panel   Найти похожие ветки 

← →
Юрий Ж.   (2004-07-23 13:22) [0]

Как сделать так, чтобы принажатии на кнопку в позиции с координатами X и Y (не обязательно на форме) появлялась Panel (типа PopUp)?

Спасибо!

---

← →
Ega23 ©   (2004-07-23 13:24) [1]

Create, Top, Left, Visible:=true.

---

← →
Юрий Ж.   (2004-07-23 13:36) [2]

А пример можно?

---

← →
Юрий Ж.   (2004-07-23 13:37) [3]

А надо уточнить:
Panel разрабатывектся не в Run-Time а в Design-Time.
Может компонент какой-нибуть есть?

---

← →
Ega23 ©   (2004-07-23 13:39) [4]

Так я же написал!

Сначала - Create (что там у тебя бкдет - тебе решать: TPanel, TForm  или ещё что-нибудь).

Потом задаёшь координаты: ЧтоНибудь.Top:=100; ЧтоНибудь.Left:=100;

Потом показываешь: ЧтоНибудь.Visible:=True;

---

← →
Ega23 ©   (2004-07-23 13:40) [5]

Может компонент какой-нибуть есть?

Есть. TForm называется.

---

← →
Рамиль ©   (2004-07-23 13:41) [6]

> Ega23 ©   (23.07.04 13:39)

Слкдующий вопрос будет - я все сделал, а почему то не показывается.

---

← →
Ivolg   (2004-07-23 16:57) [7]

Киннь на ворму Panel и поставь своиство Visible в False и раставь код на процыдуры объекта на которам ты хочешь показывать панель!

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
   panel1.Left:=x;
   panel1.Top:=y;
   panel1.Visible:=true;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Integer);
begin
  panel1.Visible:=false;
end;

---

← →
Immortal_Death ©   (2004-07-23 22:08) [8]

а кто-нить вот это видел?
>не обязательно на форме

---

← →
Юрий Ж.   (2004-07-24 11:37) [9]

Я же и стараюсь объяснить что НЕ НА ФОРМЕ (как PopupMenu(!)). Только Immortal_Death меня понял.
Надо чтобы Panel был как бы независимым от родительской формы.

---

← →
Rem   (2004-07-24 12:06) [10]

>>Я же и стараюсь объяснить что НЕ НА ФОРМЕ

Вам - лучше на форме.
См. TForm.BorderStyle

---

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

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



Память: 0.47 MB
Время: 0.026 c