SQLRU.net
Разработка приложений баз данных

Начало » Программирование » Delphi » Ссылка в ячейке таблицы. (Как сделать текст в ячейке DBGrid ссылкой.)
Ссылка в ячейке таблицы. [сообщение #5615] Sat, 26 October 2024 22:13 Переход к следующему сообщению
ьшл1306 в настоящее время не в онлайне  ьшл1306
Сообщений: 9
Зарегистрирован: October 2024
Junior Member
Нужно сделать текст в ячейке таблицы ссылкой Буду благодарен за подсказку и готов заплатить за готовый код. Хотел загрузить архив,но по объему не проходит. Могу выслать на почту в WhatsAPP...

unit Unit2;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.Grids, Vcl.DBGrids,
 Data.Win.ADODB, Vcl.Imaging.jpeg, Vcl.ExtCtrls, Vcl.ComCtrls, Vcl.StdCtrls;

type
 TForm2 = class(TForm)
   ADOConnection1: TADOConnection;
   DBGrid1: TDBGrid;
   Image1: TImage;
   Image2: TImage;
   Image3: TImage;
   Image4: TImage;
   Image5: TImage;
   ADOQuery1: TADOQuery;
   DataSource1: TDataSource;
   StatusBar1: TStatusBar;
   procedure Image2Click(Sender: TObject);
   procedure Image5Click(Sender: TObject);
   procedure Image4Click(Sender: TObject);
   procedure Image3Click(Sender: TObject);
   procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form2: TForm2;
fs:string;
implementation

{$R *.dfm}

uses Unit3;

procedure TForm2.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
fs:=fs+key;
dbgrid1.DataSource.DataSet.Locate('Дата',fs,[loPartialKe y]);
StatusBar1.Panels.Items[0].Text:= 'Поиск :   ' +fs;
end;

procedure TForm2.Image2Click(Sender: TObject);
begin
Form3.Show;
Form2.ADOQuery1.APPend;
end;

procedure TForm2.Image3Click(Sender: TObject);
begin
Form3.Show;
end;

procedure TForm2.Image4Click(Sender: TObject);
begin
Form2.ADOQuery1.Delete;
end;

procedure TForm2.Image5Click(Sender: TObject);
begin
Form2.Close;
end;

end.
Re: Ссылка в ячейке таблицы. [сообщение #5616 является ответом на сообщение #5615] Sat, 26 October 2024 22:59 Переход к предыдущему сообщениюПереход к следующему сообщению
BlackEric в настоящее время не в онлайне  BlackEric
Сообщений: 367
Зарегистрирован: June 2022
Senior Member
Что значит ссылкой?
Что бы выглядело как гиперссылка в браузере? Синий текст с подчеркиванием и переход по клику?
Или что бы по клику что-то открывалось?
Re: Ссылка в ячейке таблицы. [сообщение #5618 является ответом на сообщение #5616] Sat, 26 October 2024 23:34 Переход к предыдущему сообщениюПереход к следующему сообщению
ьшл1306 в настоящее время не в онлайне  ьшл1306
Сообщений: 9
Зарегистрирован: October 2024
Junior Member
Ссылка на папку .Как выглядит неважно. По клику -переход по адресу. Наверное я непонятно объяснил. Лучше показать исходник,но 18Mb на форум не могу загрузить. Могу сбросить на почту или на ЯндексДиск.
Re: Ссылка в ячейке таблицы. [сообщение #5619 является ответом на сообщение #5618] Sat, 26 October 2024 23:43 Переход к предыдущему сообщениюПереход к следующему сообщению
ьшл1306 в настоящее время не в онлайне  ьшл1306
Сообщений: 9
Зарегистрирован: October 2024
Junior Member
C:\Users\База\Pictures\77.jpg
Re: Ссылка в ячейке таблицы. [сообщение #5620 является ответом на сообщение #5619] Mon, 28 October 2024 10:35 Переход к предыдущему сообщениюПереход к следующему сообщению
BlackEric в настоящее время не в онлайне  BlackEric
Сообщений: 367
Зарегистрирован: June 2022
Senior Member
1. Вы используете DBGrid
2. В датасете в поле храните путь к файлу
3. Делаете обработчик события OnCellClick. И в обработчике читаете файл и открываете в требуемом компоненте.
Re: Ссылка в ячейке таблицы. [сообщение #5621 является ответом на сообщение #5620] Mon, 28 October 2024 13:13 Переход к предыдущему сообщениюПереход к следующему сообщению
ьшл1306 в настоящее время не в онлайне  ьшл1306
Сообщений: 9
Зарегистрирован: October 2024
Junior Member
Путь к файлу загружается в ячейку таблицы из Form3. В каждой строке свой путь.(Примерно так C:\программа\ydf.) Вот этот путь должен быть гиперссылкой.По клику открывать папку в отдельном окне.
Здесь весь проект. https://disk.yandex.ru/d/aEIOxHS3Y19how. Посмотрите как это выглядит, а то я наверное объяснил непонятно.
Re: Ссылка в ячейке таблицы. [сообщение #5622 является ответом на сообщение #5621] Mon, 28 October 2024 15:10 Переход к предыдущему сообщениюПереход к следующему сообщению
BlackEric в настоящее время не в онлайне  BlackEric
Сообщений: 367
Зарегистрирован: June 2022
Senior Member
так что именно не получается?
Re: Ссылка в ячейке таблицы. [сообщение #5623 является ответом на сообщение #5622] Mon, 28 October 2024 15:17 Переход к предыдущему сообщениюПереход к следующему сообщению
BlackEric в настоящее время не в онлайне  BlackEric
Сообщений: 367
Зарегистрирован: June 2022
Senior Member
1. Материалы по теме сделай выбор файлов из диалога. Никто строки путей руками не вбивает.
2. Формы и контролы нужно именовать что бы было понятно, что они делают.
3. Главную форму сделай либо не меняющей размер, либо что бы все ресайзилось вместе с формой.
4. В гриде сделай обработчик OnCellClick. Его выбери в обработчиках грида, и добейся что бы ты мог в нем получить путь к файлу.
5. Собственно сделай показ файла. В другой форме или внизу главной.

Что не получается из этого?
Re: Ссылка в ячейке таблицы. [сообщение #5624 является ответом на сообщение #5623] Mon, 28 October 2024 16:45 Переход к предыдущему сообщениюПереход к следующему сообщению
ьшл1306 в настоящее время не в онлайне  ьшл1306
Сообщений: 9
Зарегистрирован: October 2024
Junior Member
Нужно изучить то что вы предлагаете. Я ведь не программист. Возникла необходимость в написании такой программы. А если с подробностями то племянница по состоянию здоровья вынуждена уйти из школы и работать удаленно. Хотелось помочь,а паскаль -это то о чем я когда-то слышал. Поэтому делфи. В мое время были только ЭВМ размером в квартиру и перфокарта в качестве кода.
Я попробую последовать вашим советам. Потом отпишусь.
Re: Ссылка в ячейке таблицы. [сообщение #5625 является ответом на сообщение #5624] Mon, 28 October 2024 17:13 Переход к предыдущему сообщениюПереход к следующему сообщению
BlackEric в настоящее время не в онлайне  BlackEric
Сообщений: 367
Зарегистрирован: June 2022
Senior Member
Если скините тз, то возможно смогу помочь.
Re: Ссылка в ячейке таблицы. [сообщение #5626 является ответом на сообщение #5625] Mon, 28 October 2024 17:31 Переход к предыдущему сообщениюПереход к следующему сообщению
ьшл1306 в настоящее время не в онлайне  ьшл1306
Сообщений: 9
Зарегистрирован: October 2024
Junior Member
Я сбросил на диск вест проект. Вам как специалисту наверное ничего не надо объяснять. назовите цену я буду очень вам благодарен .  
Re: Ссылка в ячейке таблицы. [сообщение #5627 является ответом на сообщение #5626] Mon, 28 October 2024 18:30 Переход к предыдущему сообщениюПереход к следующему сообщению
BlackEric в настоящее время не в онлайне  BlackEric
Сообщений: 367
Зарегистрирован: June 2022
Senior Member
Надо. Что нужно получить в итоге?
Могу полностью сделать

Телега @BlackEric001

[Обновления: Mon, 28 October 2024 18:32]

Известить модератора

Re: Ссылка в ячейке таблицы. [сообщение #5628 является ответом на сообщение #5627] Mon, 28 October 2024 22:05 Переход к предыдущему сообщениюПереход к следующему сообщению
ьшл1306 в настоящее время не в онлайне  ьшл1306
Сообщений: 9
Зарегистрирован: October 2024
Junior Member
проект открывали?
Re: Ссылка в ячейке таблицы. [сообщение #5642 является ответом на сообщение #5628] Wed, 30 October 2024 15:18 Переход к предыдущему сообщениюПереход к следующему сообщению
МП в настоящее время не в онлайне  МП
Сообщений: 888
Зарегистрирован: August 2022
Географическое положение: бурятский тун...
Senior Member
а ты бл$дь настойчив!  :lol:
Re: Ссылка в ячейке таблицы. [сообщение #5649 является ответом на сообщение #5642] Thu, 31 October 2024 13:23 Переход к предыдущему сообщениюПереход к следующему сообщению
ьшл1306 в настоящее время не в онлайне  ьшл1306
Сообщений: 9
Зарегистрирован: October 2024
Junior Member
Еще раз прошу прощения
Re: Ссылка в ячейке таблицы. [сообщение #5650 является ответом на сообщение #5649] Thu, 31 October 2024 13:24 Переход к предыдущему сообщениюПереход к следующему сообщению
ьшл1306 в настоящее время не в онлайне  ьшл1306
Сообщений: 9
Зарегистрирован: October 2024
Junior Member
Чем то обидел?
Re: Ссылка в ячейке таблицы. [сообщение #5700 является ответом на сообщение #5650] Tue, 12 November 2024 00:39 Переход к предыдущему сообщению
DarkMaster в настоящее время не в онлайне  DarkMaster
Сообщений: 35
Зарегистрирован: August 2022
Member
VirtualTreeView не предлагать? И всякие-разные Grid`ы?

P.S. Ну уж больно грустно и убого со стандартными... (ну во всяком случае когда-то было Smile )
Предыдущая тема: Delphi жив?
Следующая тема: Переход в другое приложение и обратно)
Переход к форуму:
  


Текущее время: Tue Dec 10 08:21:30 GMT+3 2024

Общее время, затраченное на создание страницы: 0.01631 секунд