Ссылка в ячейке таблицы. [сообщение #5615] |
Sat, 26 October 2024 22:13 |
ьшл1306
Сообщений: 7 Зарегистрирован: 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.
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|