SQLRU.net: Delphi » Ссылка в ячейке таблицы.

Начало » Программирование » Delphi » Ссылка в ячейке таблицы. (Как сделать текст в ячейке DBGrid ссылкой.)

Показать: Сегодняшние сообщения :: Голосования :: Навигатор по сообщениям
Отправить по e-mail

Ссылка в ячейке таблицы. [сообщение #5615]

Sat, 26 October 2024 22:13

ьшл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.

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

[Список сообщений]

		Ссылка в ячейке таблицы. От: ьшл1306 - Sat, 26 October 2024 22:13
		Re: Ссылка в ячейке таблицы. От: BlackEric - Sat, 26 October 2024 22:59
		Re: Ссылка в ячейке таблицы. От: ьшл1306 - Sat, 26 October 2024 23:34
		Re: Ссылка в ячейке таблицы. От: ьшл1306 - Sat, 26 October 2024 23:43
		Re: Ссылка в ячейке таблицы. От: BlackEric - Mon, 28 October 2024 10:35
		Re: Ссылка в ячейке таблицы. От: ьшл1306 - Mon, 28 October 2024 13:13
		Re: Ссылка в ячейке таблицы. От: BlackEric - Mon, 28 October 2024 15:10
		Re: Ссылка в ячейке таблицы. От: BlackEric - Mon, 28 October 2024 15:17
		Re: Ссылка в ячейке таблицы. От: ьшл1306 - Mon, 28 October 2024 16:45
		Re: Ссылка в ячейке таблицы. От: BlackEric - Mon, 28 October 2024 17:13
		Re: Ссылка в ячейке таблицы. От: ьшл1306 - Mon, 28 October 2024 17:31
		Re: Ссылка в ячейке таблицы. От: BlackEric - Mon, 28 October 2024 18:30
		Re: Ссылка в ячейке таблицы. От: ьшл1306 - Mon, 28 October 2024 22:05
		Re: Ссылка в ячейке таблицы. От: МП - Wed, 30 October 2024 15:18
		Re: Ссылка в ячейке таблицы. От: ьшл1306 - Thu, 31 October 2024 13:23
		Re: Ссылка в ячейке таблицы. От: ьшл1306 - Thu, 31 October 2024 13:24
		Re: Ссылка в ячейке таблицы. От: DarkMaster - Tue, 12 November 2024 00:39

Предыдущая тема:

Delphi жив?

Переход к форуму:

-=] Вернуться вверх [=-

[ Сформировать XML ] [

] [

]

Текущее время: Thu Nov 21 12:43:44 GMT+3 2024

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