Sori nih kalo back to basic lagi, saya dah coba test dengan cara
ini,sebenarnya saya menemukan fungsi ini secara tidak sengaja, mungkin
juga diantara kalian yang belum mengetahui. Kalo di VB ada perintah
namanya SendKeys yang biasanya saya gunakan untuk mengantikan fungsi
enter jadi tab, dulu saya cari - cari pengganti perintah ini di delphi,
saya temukan cara lain melalui perintah perform.
Kemudian saya baru saja menemukan suatu perintah yang lebih baik dan
ternyata telah ada di delphi sejak lama. Perintahnya SelectNext.
Untuk mengatasi masalah yang sedang dibicarakan ini, saya buat contoh
coding sebagai berikut:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
btnNo1: TButton;
btnNo2: TButton;
btnNo3: TButton;
btnNo4: TButton;
btnBack: TButton;
btnNext: TButton;
procedure OnNaviButton_Click(Sender: TObject);
procedure OnButton_Click(Sender: TObject);
end;
var
Form1: TForm1;
BtnActive : TButton;
implementation
{$R *.dfm}
procedure TForm1.OnButton_Click(Sender: TObject);
begin
BtnActive := (Sender as TButton);
ShowMessage(intToStr((Sender as TButton).tag))
end;
procedure TForm1.OnNaviButton_Click(Sender: TObject);
var
bBackForward : Boolean;
begin
if (sender as TButton).Tag = 0 then
bBackForward := False
else if (sender as TButton).Tag = 1 then
bBackForward := True;
SelectNext(BtnActive,bBackForward,true);
if ActiveControl is TButton then
(ActiveControl as TButton).Click;
end;
end.
Semoga membantu
Iwan Cahyadi Sugeng
--Original Message
nah kalau function su*ks(X) biasanya digunakan sebagai pencerminan
exception
yang timbul dari programmer delphi yang lagi depresi. :-)
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Upgrade to 128-Bit SSL Security!
http://us.click.yahoo.com/p7cEmB/s7qGAA/yigFAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
