Tags:
delphi
Jeg bruger denne kode til at få enter i comboBoxen til at virke.. problemet er bare at den gør det oxo på alle andres taster !
procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key = VK_Return then
WebBrowser1.Navigate(ComboBox1.text);
ComboBox1.Items.Add(ComboBox1.text);
Hvad kan der være galt ??
Mvh Skov
www.xcc.dk
skov@xcc.dk
Msn : xcc2@hotmail.com
2 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 1 karma
Det er fordi du ikke indkapsler koden. Det her er hvad der sker.
if Key = VK_Return then
//hvis key=enter så
WebBrowser1.Navigate(ComboBox1.text);
//nedestående sker lige meget hvad
ComboBox1.Items.Add(ComboBox1.text);
det skal rettes til
if Key = VK_Return then begin
WebBrowser1.Navigate(ComboBox1.text);
ComboBox1.Items.Add(ComboBox1.text);
end;
-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GED d- s: a--- C++ W++ w PS X+ tv+ b D G e- h! !r z--
------END GEEK CODE BLOCK------
[Redigeret d. 10/06-05 14:05:06 af Jonas (Decko)]
0
Tak for det
det virkede straks bedre