Показать сообщение отдельно
  #4  
Старый 14.09.2018, 21:18
TEKTON TEKTON вне форума
Новичок
 
Регистрация: 14.03.2011
Сообщения: 60
Репутация: 10
По умолчанию

Цитата:
Сообщение от lmikle
Код:
procedure TForm1.Label1Click(Sender : TObject);
var
  p : TPoint;
begin
  p.Top := (Sender As TLabel).Top + (Sender As TLabel).Height;
  p.Left := (Sender As TLabel).Left;
  p := ClienttoScreen(p);
  PopupMenu1.Popup(p);
end;

Ругается.
Мож чего надо ещё добавить?
Цитата:
[Error] Unit1.pas(127): Undeclared identifier: 'Top'
[Error] Unit1.pas(128): Undeclared identifier: 'Left'
[Error] Unit1.pas(130): Incompatible types: 'Integer' and 'TPoint'
Ответить с цитированием