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' ??

0

Robie tak:

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

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

bez ':'

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

Tak, teraz dziala. Dziekowa za pomoc [browar]

0

bez ':'

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

po co else!!!!!!!
else jest tu niepotrzebne, bo jesli warunek sie spelni to procedure sie zakonczy a jesli warunek sie nie spelni to petla pojdzie dalej!!

0

Uhu... Ale jest jeszcze jedna sprawa... Mam takie coś:

begin
if WebBrowser1DocumentComplete( ) = true then exit;
begin

i w nawiasach mam wpisac parametry... Jakie??

0

Najedź mysza na tą funkcję, to się pokaże hint. Albo spojrzyj do helpa.

0

Najedź mysza na tą funkcję, to się pokaże hint. Albo spojrzyj do helpa.

<ort>Pisze </ort>'(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant)' ??

0

if WebBrowser1DocumentComplete( ) = true then exit;

lol, a to nie jest czasem procedura z eventa? :|

0

W opcjach buttona masz taką opcję Popup (chyba) i ustawiasz tam np"PopupMenu1"

0

W opcjach buttona masz taką opcję Popup (chyba) i ustawiasz tam np"PopupMenu1"

Ziomek, to juz dawno bylo :d

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

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