procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = 46 then
showmessage('Teste');
end;
Thiago C. Santos
Desenvolvimento
Rhede Sistemas
(45) 3035-6606
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA ME
localizado no
form onde o usuário escolhe as opções do relatório.
Thiago C. Santos
Desenvolvimento
Rhede Sistemas
(45) 3035-6606
- Original Message -
From: plucaslazaro
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, July 07, 2005 9:48 AM
Subject: [delphi-br] Duvida como criar um
Font.Color := Column.Font.Color;
Canvas.TextRect(Rect, viLeft, Rect.Top+2, vsText);
end;
end;
end;
Espero ter ajudado.
Thiago C. Santos
Desenvolvimento
Rhede Sistemas
(45) 3035-6606
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<
3 matches
Mail list logo