Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Всплываюий Panel [D7, Win95/98, WinME, NT4, Win2k, WinXP]

Юрий Ж. © (2004-07-23 13:22:00)
Как сделать так, чтобы принажатии на кнопку в позиции с координатами X и Y (не обязательно на форме) появлялась Panel(типа PopUp)?

Спасибо!

Rem (2004-07-24 12:06:00) [1]
>>Я же и стараюсь объяснить что НЕ НА ФОРМЕ

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

Юрий Ж. (2004-07-24 11:37:00) [2]
Я же и стараюсь объяснить что НЕ НА ФОРМЕ (как PopupMenu(!)). Только Immortal_Death меня понял.
Надо чтобы Panel был как бы независимым от родительской формы.

Immortal_Death (2004-07-23 22:08:00) [3]
а кто-нить вот это видел?
>не обязательно на форме

Ivolg (2004-07-23 16:57:00) [4]
Киннь на ворму 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-23 13:41:00) [5]

> Ega23 © (23.07.04 13:39)

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

Ega23 (2004-07-23 13:40:00) [6]
Может компонент какой-нибуть есть?

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

Ega23 (2004-07-23 13:39:00) [7]
Так я же написал!

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

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

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

Юрий Ж. (2004-07-23 13:37:00) [8]
А надо уточнить:
Panel разрабатывектся не в Run-Time а в Design-Time.
Может компонент какой-нибуть есть?

Юрий Ж. (2004-07-23 13:36:00) [9]
А пример можно?

Ega23 (2004-07-23 13:24:00) [10]
Create, Top, Left, Visible:=true.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »