(Resolvido) Clique + Control

[Marcos Augusto]

ola pessoal

estou aki d novo para perguntar c alguel sabe como faÇo para acionar um botao para fazer

uma aÇao com o click

e fazer outra aÇao com o control acionado ex:

quando eu clico no botao sem o control precionado ele move o banco de dados um indice para

frente

table.next;

quando eu clico no botao com o control precionado ele move o banco de dados 10 indice para

frente

for cont := 0 to 9 do

table.next;

c alguém souber, por favor preciso desta dica.

grato marcos augusto

3.7 Ao postar uma mensagem, procure usar o tamanho de fonte padrão do fórum, não deixando as letras grandes ou pequenas demais; evite o uso de cores fortes, as quais prejudicam a leitura, e não insira textos totalmente em caixa alta (ESTE É UM TEXTO EM CAIXA ALTA). Tópicos que violarem essa regra serão editados sem prévio aviso.

3º e ultimo Aviso ..... Por Favor siga as regras do Forum

Editado Setembro 1, 2008 por Jhonas
Regras do Forum

[Duduh_Capixaba]

É uma idéia meio na base da gambiarra, mas deu certo. Teste o código abaixo:

Para testar esse código, sete a propriedade KeyPreview do Form como true, e coloque um Button e um Label no Form;

var
  Form1: TForm1;
  Tecla: Boolean;

implementation

{$R *.dfm}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = 17 then
    Tecla := True;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Tecla := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Tecla then
    Label1.Caption := 'O botão foi pressionado com a tecla Ctrl pressionada.'
  else
    Label1.Caption := 'O botão foi pressionado sem a tecla Ctrl.';
end;

Outra coisa cara, o Jhonas vai chamar sua atenção "de novo". Você está postando sempre em caixa alta. Tente seguir as regras do fórum. Postar todo o texto em caixa alta é proibido. Abraço!

Editado Agosto 31, 2008 por Duduh_Capixaba

[Marcos Augusto]

Muito obrigado Duduh_Capixaba fiz algumas alteracoes que serviram muito bem para mim, e valeu pela dica da caixa alta.

[Duduh_Capixaba]

Que bom que o código te serviu, estamos aí pra isso! Só cuidado com esses vacilos. Você viu que o Jhonas editou seu post, certo?! Foi seu último aviso. Cuidado ao postar. Abraço!