Tebrikler... Çözümünüz çok mantıklı... 
Olayı çözmüşsünüz.. Eklemeniz gereken tek şey Navigasyonu durudurup, tetiklemeyi gerçekleştirmek...Kod: Tümünü seç
If Pos('=', URL) > 0 then
begin
Cancel := True;
// Burada ='den sonraki değere göre istediğiniz sorguyu yaptırın...
end;
....
Kod: Tümünü seç
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
var
NewUrl,kategori,icerik: string;
i,Yol:Integer;
begin
Memo1.Clear;
NewUrl:=VarToStr(URL); { Url yi str ye Cevir }
Yol:=Length(GetCurrentDir); { Path uzunluk bul }
Delete(NewUrl,1,Yol+1); { Path uzunluk kadarını sil }
i:=pos('=',NewUrl); { = Kacıncı karakter }
Kategori:=LeftStr(NewUrl,i-1); { Kategoriyi url den cıkar }
Memo1.Lines.Add('Kategori No :'+Kategori);{ Kategori alındı }
Delete(NewUrl,1,i); { = e kadar tüm karakterleri sil }
icerik:=NewUrl; { Geri kalan bizimdir }
Memo1.Lines.Add('Icerik No :'+icerik);{ icerik alındı }
end;
Kod: Tümünü seç
//db bilgilerini aldıktan sonra sayfayı acıyoruz
WebBrowser1.Navigate(GetCurrentDir+'/'+'OutputQuery1.htm');
Kod: Tümünü seç
var
kategori,
icerik : string;
begin
If Pos('=', URL) > 0 then // Diğer navigasyonlara dokunulmayacak...
begin // = (eşittir) işareti olduğuna göre parametre okunmuş...
Memo1.Clear;
// --- Kategoriyi ödünç kullanıyoruz... url den cıkar --- //
Kategori := Copy(URL, Length(ExtractFilePath(URL))+1, 9999); // 9999 yazmanda sakınca yok, kısa olsa da hata vermez...
// --- İçerik oku --- //
icerik := Copy(Kategori, 3, 9999); // ='den sonrası 3. karakter
// --- Geri kalan bizimdir --- //
Kategori := Kategori[1]; // ilk karakter ise kategori...
Memo1.Lines.Add('Kategori No :'+Kategori); // Kategori alındı
Memo1.Lines.Add('Icerik No :'+icerik);// icerik alındı
Cancel := True; // Mevcut navigasyonu durdurduk..
// Burada END blok sonundan önce yeni navigasyonunu yaptırabilirsin...
// ...
//db bilgilerini aldıktan sonra sayfayı acıyoruz
WebBrowser1.Navigate(GetCurrentDir+'/'+'OutputQuery1.htm');
// ...
end;
Tebrikler çok iyi gidiyorsunuz... 
Yemek için afiyet olsun... Görüştüğünüz herkese şahsen bir selam... buradan da okuyanlara selam... 
....Kod: Tümünü seç
var id,bolumid:string;
begin
while not (Data.Eof) do
begin
id:=Data.FieldByName('id').AsString;
bolumid:=Data.FieldByName('bolumid').AsString;
Add('<a href="'+bolumid+'='+id+'">'+Data.FieldByName('Ad').AsString+'</a>');
Data.Next;
end;
end;
Kod: Tümünü seç
Cancel := True; { navigasyonu durdur }
WebBrowser1.Navigate(GetCurrentDir+'/'+'OutputQuery1.htm');
Kod: Tümünü seç
Where
"YT.db"."Bolum1" =:"kategori" or "Bolum2" =:"icerik"
....