Как обещал сделал первую версию WMmail браузера! Версия будет 0.1!
Вот ссылочка на скачиваение:
Вирусов нет! Кто хочет можете проверить веб антивирусом!
Ваше мнение о программе? Ваши идеи?
5+ :>
18
5
2
4
10
3
7
2
2
1
3
0 :<
15
Модератор Kir1975 выписал штраф создателю темы в размере 0.1$ за несоблюдение правил рекламы, по причине: реклама
Не в обиду автора, но пользоваться ею я не буду вообще. меня и так устраивают браузеры, которые есть. Кто хочет, пусть пользуется, но мне не особо нравится идея о браузере мпециально для вммайла.
procedure TForm1.Button2Click(Sender: TObject);
begin
if PageWeb.PageCount>2 then begin
PageWeb.Pages[PageWeb.TabIndex].Destroy;
PageWeb.TabIndex:=PageWeb.PageCount-2;
Browsers.Delete(Browsers.Count-1);
end else if PageWeb.PageCount=2 then begin
TWebBrowser(Browsers.Last).Navigate(blank);
PageWeb.Pages[PageWeb.PageCount-2].Caption:=blank;
end;
end;
procedure TForm1.Edit1Click(Sender: TObject);
begin
Edit1.SelStart:=0;
Edit1.SelLength:=length(Edit1.Text);
Edit1.SetFocus;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Align:=albottom;
// запуск формы
Browsers:=TList.Create;
Browsers.Add(WebBrowser1);
speedbutton2.Click;
end;
procedure TForm1.PageWebChange(Sender: TObject);
var tab:TTabSheet; wl,wb: TWebBrowser;
begin
// вкладки переход
if PageWeb.TabIndex=PageWeb.PageCount-1 then begin
tab:=TTabSheet.Create(PageWeb);
tab.PageControl:=PageWeb;
tab.Caption:=blank;
tab.PageIndex:=PageWeb.PageCount-2;
PageWeb.TabIndex:=tab.PageIndex;
wl:=TWebBrowser(Browsers.last);
wb:=TWebBrowser.Create(tab);
with TWinControl(wb) do begin
parent:=tab; // веб браузер активизация
// загрузка параметров
visible:=true; width:=wl.Width; height:=wl.Height; left:=wl.Left; top:=wl.Top;
Align:=wl.Align;
end;
wb.OnDocumentComplete:=self.WebBrowser1DocumentComplete;
Browsers.Add(wb);
end else begin
Edit1.Text:=TWebBrowser(Browsers[PageWeb.TabIndex]).LocationURL;
end;
end;
procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
// зарузка страницы
PageWeb.ActivePage.Caption:=copy(TWebBrowser(ASender).LocationName,1,23);
Edit1.Text:=TWebBrowser(ASender).LocationUrl;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
// стоп
TWebBrowser(Browsers[PageWeb.TabIndex]).Stop;
end;
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
// назад
TWebBrowser(Browsers[PageWeb.TabIndex]).GoBack;
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
// навигация, кнопка GO
TWebBrowser(Browsers[PageWeb.TabIndex]).Navigate(self.Edit1.Text);
PageWeb.ActivePage.Caption:='Загрузка...';
end;
procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
// Вперед
TWebBrowser(Browsers[PageWeb.TabIndex]).GoForward;
end;
procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
// обновить
TWebBrowser(Browsers[PageWeb.TabIndex]).Refresh;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
form1.close;
end;
procedure TForm1.N1Click(Sender: TObject);
begin
CoolTrayIcon1.ShowMainForm;
end;
procedure TForm1.CoolTrayIcon1Click(Sender: TObject);
begin
CoolTrayIcon1.ShowMainForm;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
form2.Show;
end;
браузер очень шустрый, но косяков достаточно. Первый - всё мигает. Это очень неприятно. Второй - прокрутку очень сложно назвать плавной. Не приятно смотреть, когда при скроле сайт прыгает с одного места на другое. Третье - очень большие кнопки функционала (остановить, назад, вперед и тп.) И не понятно какая кнопка за что отвечает. сделай всплывающие пояснения. Четвертое - команды не работают. Нажимаю CTRL + Enter - никакого результата. Если че то еще надумаю - отпишу.
У проги много минусов таких примеру как элементов проблемы с Alt-изчезновением и базовых горячих клавишь.
Да и вообще Кто сказал что прога не передаёт пароли тебе? xD
Добавлено спустя 05 минут 42 секунды
Но всё таки прятно видеть код Delphi)))
Эх, конечно вы делаете благое дело, но это уж слишком подозрительно... Вчера предложили, сегодня уже написали. Я извиняюсь, конечно, что обвиняю вас без доказательств, но как уже писал, пользоваться я ею не буду. Может и буду таким один, но уже столько насоздавали помошников... Конечно, есть такие, что действительно помогают, но есть и другие, для других целей. Мне б не очень хотелось, чтобы этоа праграмма отнеслась ко второму. Очень не хотелось... Порядочных людей и так мало, а талантливых ешё меньше... И всё же удачи.
0.00 
WMmail браузер! ver 0.1
Модератор Kir1975 выписал штраф создателю темы в размере 0.1$ за несоблюдение правил рекламы, по причине: реклама
сделал для начала хоть чтобы задания помогало делать,а там видно будет!
