Hint individual em Radiogroup

Colega,

Você pode utilizar o [b:1c530498ec]GroupBox [/b:1c530498ec]e colocar vários [b:1c530498ec]RadioButtons [/b:1c530498ec]e colocar os HINTs [b:1c530498ec]individualmente[/b:1c530498ec].

caro compranheiro, este detalhe eu sei, mas porem, ja um grande quantidade de código foi escrita. E não gostaria de mudar.


mas qualquer forma, agradeço a atenção.



Emery

Já vi dicas parecidas para grid (colunas) que usam as funções de posição de mouse, mas nunca testei.

204 - Mostrar o Hint para cada coluna do StringGrid
Para testar o exemplo abaixo inclua no seu form um componente StringGrid

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
procedure FormCreate(Sender: TObject);
procedure StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
Col,Row : integer; // Declarar esta variável
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
// Evento OnCreate do Form
procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid1.Hint := ´0 0´;
StringGrid1.ShowHint := True;
end;
// Evento OnMouseMove do componente StringGrid
procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
var r,c : integer;
begin
StringGrid1.MouseToCell(X, Y, C, R);
if ((Row r) or (Col c)) then
begin
Row := r; Col := c;
Application.CancelHint;
StringGrid1.Hint := ´Linha: ´+IntToStr(r)+#32+´Coluna: ´+IntToStr(c);
end;
end;


fonte : HP:www.lloydsoft.hpg.ig.com.br

besteira minha , radio nao tem evento parecido, o caminho seria outro

TRadioButton(RadioGroup1.Controls[0]).ShowHint := True;
TRadioButton(RadioGroup1.Controls[0]).Hint := 'Texto Hint'