procedure MudaBotao(Objeto: TObject);
begin
if Objeto is TButton then
TButton(Objeto).Caption := 'Help'
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
MudaBotao(Sender)
end;
Para entender esse código, informe-se sobre typecasting no próprio do help do
Delphi.
Boa
2009/3/13 Leonardo - NTI Equipamentos tecn...@ntiequipamentos.com.br:
É o seguinte criei uma Procedure para executar uma tarefa varias vezes... só
que
quando coloco ela para alterar um valor de um objeto, como um botão por
exemplo ela dá erro.
Tem algum lugar que preciso associar a
2 matches
Mail list logo