Fórum PopUp em algumas celulas #195468
17/11/2003
0
Eu tenho um popupMenu vinculado um umStringGrid..
Como faço para abrir o PopupMenu apenas nas colunas impares??
Como faço para abrir o PopupMenu apenas nas colunas impares??
Marcela
Curtir tópico
+ 0
Responder
Posts
17/11/2003
Fabio Colli
Coloque isto no evento do StrigGrid.
procedure TForm1.StringGrid1ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
if not ((StringGrid1.Col div 2) = (StringGrid1.Col / 2)) then
begin
PopupMenu1.AutoPopup := False
end
else
begin
PopupMenu1.AutoPopup := True;
StringGrid1.PopupMenu := PopupMenu1;
end;
end;
procedure TForm1.StringGrid1ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
if not ((StringGrid1.Col div 2) = (StringGrid1.Col / 2)) then
begin
PopupMenu1.AutoPopup := False
end
else
begin
PopupMenu1.AutoPopup := True;
StringGrid1.PopupMenu := PopupMenu1;
end;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)