Przeglądarka internetowa

0

Mam pare pytan, dotyczączych Delphi [stuk] [potrzebne mi do przeglądarki]:
1)jak wylaczyc ComboBox1KeyPress kiedy ComboBox1.Text := WebBrowser1.LocationURL ?
2)jak zrobic aby Item [zaznaczony] z ListBox1 [Ulubione] znalazl sie sie w ComboBox1 ?
3)jak zrobic aby po wcisnieciu Buttona pojawilo sie PopupMenu ?
Z gory wielkie thx za pomoc :-)

0
var
M:TPoint;
begin
GetCursorPos(M);
Menu.Popup(M.X, M.Y);
end;

W pozostale nie chce mi się wgłębiać :).

0

Ad1: Sprawdzaj warunek w samej procedurze KeyPress - i albo wykonaj albo nie.

Ad2: .. bez przesady .. TComboBox.Items.Add + TListBox.Items.Selected + F1

0

Ad2: .. bez przesady .. TComboBox.Items.Add + TListBox.Items.Selected + F1

ale mi chodzi o to aby po podwojnym kliknieciu w ListBox pojawilo sie w ComboBox

0

ComboBox.Items.Add(ListBox.Items.Strings[ListBox.ItemIndex]);

0

Ad1: Sprawdzaj warunek w samej procedurze KeyPress - i albo wykonaj albo nie.

a czy mozna prosic o te procedure?? [stuk] nie wychodzi mi. bede wdzieczny

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = Char(VK_RETURN) then
begin
Key := #0;
if ComboBox1.Text<>'' then
begin
WebBrowser1.Navigate(ComboBox1.Text);
end;
end;
end;

0

nie lepiej walnac to w onformkey.
tak czy siak..moze nie dzialc bo moze nie ustawiles keypreview formy na true

0

nie lepiej walnac to w onformkey.
tak czy siak..moze nie dzialc bo moze nie ustawiles keypreview formy na true

ta procedura dziala, tylko ze chodzi mi o to aby byla nieaktywna gdy ComboBox:=WebBrowser.LocationUrl

0

Na samym początku wpisz

if warunek then Exit;

Za warunek wstaw swój.

0

Robie tak:

begin
if ComboBox1.Text:=WebBrowser1.LocationURL then exit else
begin

i nic, nie dziala. Pisze 'Type of expression must be boolean' ??

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0