[Delphi]Kilka pytań

Dla specjalistów Programowanie
#1

Witam, mam kilka pytań, mianowicie:

  1. Jak ukryć program przy zamknięciu (Form1.Hide; )?

  2. Jak Usunąć ikone programu z paska zadań?

  3. Jak ukryć scroolbar’a w TWebBrowser?

  4. Jak wywołać balonik w tray (TTrayIcon)?

#2

Form OnClose:

Action:=caNone;

Hide;

Ukryć główną formatkę -> Hide;

Variant(WebBrowser1.Document).body.scroll:=‘no’; // niestety po każdym odświeżeniu

TrayIcon1.Hint:=‘Text w baloniku’;

#3

Działa :slight_smile:

Tego nie widzę

Chodzi, tylko w którym Eventsie dać żeby przy każdym odświeżeniu chodziło?

Nie o to mi chodziło,

verminsye8.png

takie coś :stuck_out_tongue:

Edit:

Jeszcze 5 pytanie:

untitled478.jpg

Da się pokolorować albo usunąć elementy zaznaczone na czerwono?

#4

Tak jak w punkcie 1.

WebBrowser1 -> OnDocumentComplete

if pDisp<>WebBrowser1.DefaultDispatch then Exit;

Variant(WebBrowser1.Document).body.scroll:=‘no’;

To wygląda na TJvBalloonHint z biblioteki Jedi.

#5

Przy włączeniu jest ok, ale przy następnym odświeżeniu już nie ;/

Źródło:

http://wklej.org/hash/104f1c11427/
#6

To wstaw w WebBrowser1 -> OnDownloadComplete

var bd:Variant;

bd:=Variant(WebBrowser1.Document).body;

if not VarIsEmpty(bd) then bd.scroll:=‘no’;

co do 5-go pytania, to nie rozumiem co to za elementy oraz czego elementy.

#7

Dalej to samo ;s

u góry: TWebBrowser na alClient

u dołu: TPanel na alBottom

#8

Miałeś wstawić w WebBrowser1 -> OnDownloadComplete, a ty gdzie wstawiłeś?

TPanel1.BevelOuter:=bvNone; // można w inspektorze

#9

Po wstawieniu do OnDownloadComplete wywala następujący błąd:

przechwytywanie98.png

przechwytywanie235.png

Jeśli dam Continue i później OK to program chodzi i nie wyświetla scroolbara :slight_smile:

#10

A bez Delphi, to samo ?

Który wariant użyłeś ?

#11

Bez delphi jest ten błąd na drugim obrazku, a użyłem

w OnDownloadComplete.

a przy okazji jak wyłączyć skrót ctrl +n ?

#12

To spróbuj:

var dc,bd:Variant;

dc:=Variant(WebBrowser1.Document);

if not VarIsEmpty(dc) then

begin

  bd:=dc.body;

  if not VarIsEmpty(bd) then bd.scroll:='no';

end;

Ctrl-N - się nie pozbędziesz, no chyba że postawisz MozilaControl, podobny do tego z tym że odpala nie IE zaś mozile, tam masz pełną kontrole.

#13

Dalej ten sam błąd ;s

#14

Więc weź wszystko co masz w OnDownloadComplete w komentarz i szukaj błędu gdzie indziej.

#15

próbowałem wszystko inne brać w komentarz wychodzi na to ze to jest tego wina, kodu nie ma dużo, zresztą cały wstawiłem wyżej.

#16

To co wstawiłeś to jakaś poprzednia wersja, skompilowałem to co poradziłem u siebie, działa bez zarzutów.

#17

Może masz inną wersje Delphi.

Poradziłem sobie w inny sposób mianowicie do body strony która jest ładowana dodałem scroll=“no” i chodzi :slight_smile:

A da się jeszcze wyłączyć obramowanie TWebBrowser?

i jeszcze jedno, jak ustawić position żeby form2 był ustawiany na środku form1 po wykonaniu Form2.Show; na form1?

#18

Wlaściwość: TForm.Position