Работа с PopupMenu

← →
pavel_guzhanov © (2005-05-26 13:27) [0]

Народ, что-то я туплю, но никак не могу сделать, чтобы при клике на пункте всплывающего меню "Вставить" содержимое буфера обмена вставилось в тот компонент(напимер в Memo) над которым вызвали это самое меню. Подскажите, как это сделать...

← →
-=XP=- © (2005-05-26 13:39) [1]

С одной стороны, TMemo имеет собственное PopupMenu. Там и пункт меню "Вставить".

С другой стороны, если речь не только, и не столько про TMemo, то:

procedure TForm1.MenuInsertClick(Sender: TObject); begin TMemo(PopupMenu.PopupComponent).PasteFromClipboard; end; procedure TForm1.MemoMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var P: TPoint; begin if (Button = mbRight) then begin PopupMenu.PopupComponent := TMemo(Sender); P := Memo.ClientToScreen(Point(X, Y)); PopupMenu.Popup(P.X, P.Y); end; end;

P.S. Не обессудьте, если что-то лишнее. Но где-то в этом направлении.

← →
Чапаев © (2005-05-26 13:48) [2]

if Sender is (TControl что ли?) then
(Sender as ...).PasteFromClipboard;

← →
-=XP=- © (2005-05-26 13:50) [3]

Прошу прощения. На самом деле не совсем правильно написал.

procedure TForm1.MenuInsertClick(Sender: TObject); var C: TComponent; begin C := PopupMenu.PopupComponent; if Assigned(C) and (C is TMemo) then TMemo(C).PasteFromClipboard; // Другие действия, если не TMemo, а какой-то другой компонент end; procedure TForm1.MemoMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var P: TPoint; begin if (Button = mbRight) and (Sender.InheritsFrom(TControl)) then begin PopupMenu.PopupComponent := TComponent(Sender); P := TControl(Memo).ClientToScreen(Point(X, Y)); PopupMenu.Popup(P.X, P.Y); end; end;

Ну куда же я спешу?! :(

P := TControl(Sender).{...}

P.S. Sorry. :)

Спасибо большое!!!!!!

Работа с PopupMenu Найти похожие ветки