Всплываюий 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;

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

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

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

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

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

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

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