Cita:
Empezado por ecfisa
Hola.
Yo también pienso que no va a ser fácil conseguir un componente que haga ese trabajo... Pero vamos que con un poquito de trabajo y algunos paneles se logra un esbozo sin problemas:
Y el código es lo menos fatigoso:
Código Delphi [-]procedure TForm1.FormCreate(Sender: TObject); var i: Integer; begin for i := 0 to PopupMenu1.Items.Count-1 do PopupMenu1.Items[i].Tag := 100 + i; end; procedure TForm1.MenuItemClick(Sender: TObject); var pn: TPanel; mi: TMenuItem; begin pn := TPanel(PopupMenu1.PopupComponent); case TMenuItem(Sender).Tag of 100: pn.Color := clLime; 101: pn.Color := clYellow; 102: pn.Color := clRed; end; pn.Tag := TMenuItem(Sender).Tag; end; // (Esto si deseas que funcione con click izq. también ) procedure TForm1.PanelClick(Sender: TObject); begin PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y); PopupMenu1.PopupComponent := TPanel(Sender); end;
Saludos  |
Pues si. Con paneles también se puede jugar muy fácil. Por lo que veo te pusiste a distribuir unos cuantos paneles bien bonito y a todos les indicaste que hagan uso del OnClick del primero.
Mi pregunta es si para crear y ubicar esos frames usaste algún control como el GridPanel o lo "calculaste" a mano donde debe ir cada uno. El código no da mucha pista de esto.
Saludos,