PopUp em algumas celulas
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
Curtidas 0
Respostas
Fabio Colli
17/11/2003
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;
GOSTEI 0