[Delphi] Obsługa Buttonów

[wojtek333314]

Czysty button:

 

 

procedure TForm1.Button1Click(Sender: TObject);

begin

 

end;

 

end.

 

 

 

Mam pytanie: co wstawić między begin a end; zeby po nacisnieciu tego buttona program naciskał ciągle "P" (litere P) dajmy na to w notatniku??

Moglby ktos podac gotowy kod tego buttona? Nie moge obczaic funkcji keybd_event ...pomoze ktos?

[budrys]

Czysty button:

 

 

procedure TForm1.Button1Click(Sender: TObject);

begin

 

end;

 

end.

 

 

 

Mam pytanie: co wstawić między begin a end; zeby po nacisnieciu tego buttona program naciskał ciągle "P" (litere P) dajmy na to w notatniku??

Moglby ktos podac gotowy kod tego buttona? Nie moge obczaic funkcji keybd_event ...pomoze ktos?

 

keybd_event() wysyła wysyła symulację tylko do aktywnego okna, wiec bedziesz musial miec notatnik na wierzchu i z focusem

gotowy kod jest jak zwykle na google http://hackme.pl/articles.html?article_id=111

[wojtek333314]

keybd_event() wysyła wysyła symulację tylko do aktywnego okna, wiec bedziesz musial miec notatnik na wierzchu i z focusem

gotowy kod jest jak zwykle na google http://hackme.pl/articles.html?article_id=111

 

Działa

Dzięki

Teraz pytanie co zbierasz - czy +?:P