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 :-)
var
M:TPoint;
begin
GetCursorPos(M);
Menu.Popup(M.X, M.Y);
end;
W pozostale nie chce mi się wgłębiać :).
Ad1: Sprawdzaj warunek w samej procedurze KeyPress - i albo wykonaj albo nie.
Ad2: .. bez przesady .. TComboBox.Items.Add + TListBox.Items.Selected + F1
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
ComboBox.Items.Add(ListBox.Items.Strings[ListBox.ItemIndex]);
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;
nie lepiej walnac to w onformkey.
tak czy siak..moze nie dzialc bo moze nie ustawiles keypreview formy na true
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
Na samym początku wpisz
if warunek then Exit;
Za warunek wstaw swój.
Robie tak:
begin
if ComboBox1.Text:=WebBrowser1.LocationURL then exit else
begin
i nic, nie dziala. Pisze 'Type of expression must be boolean' ??
Robie tak:
begin
if ComboBox1.Text:=WebBrowser1.LocationURL then exit else
begini nic, nie dziala. Pisze 'Type of expression must be boolean' ??
bez ':'
begin
if ComboBox1.Text = WebBrowser1.LocationURL then exit else
begin
Tak, teraz dziala. Dziekowa za pomoc [browar]
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!!
Uhu... Ale jest jeszcze jedna sprawa... Mam takie coś:
begin
if WebBrowser1DocumentComplete( ) = true then exit;
begin
i w nawiasach mam wpisac parametry... Jakie??
Najedź mysza na tą funkcję, to się pokaże hint. Albo spojrzyj do helpa.
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)' ??
if WebBrowser1DocumentComplete( ) = true then exit;
lol, a to nie jest czasem procedura z eventa? :|
W opcjach buttona masz taką opcję Popup (chyba) i ustawiasz tam np"PopupMenu1"
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;