Начало » Программирование » Delphi » Ссылка в ячейке таблицы. (Как сделать текст в ячейке DBGrid ссылкой.)  
	
		
		
			| Ссылка в ячейке таблицы. [сообщение #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: Ссылка в ячейке таблицы.
		
	 | 
 
	  | 
	 | 
	
		Re: Ссылка в ячейке таблицы.
		От:  ьшл1306 - Sat, 26 October 2024 23:34  
	 | 
 
	  | 
	 | 
	
		Re: Ссылка в ячейке таблицы.
		От:  ьшл1306 - Sat, 26 October 2024 23:43  
	 | 
 
	  | 
	 | 
	
		Re: Ссылка в ячейке таблицы.
		
	 | 
 
	  | 
	 | 
	
		Re: Ссылка в ячейке таблицы.
		От:  ьшл1306 - Mon, 28 October 2024 13:13  
	 | 
 
	  | 
	 | 
	
		Re: Ссылка в ячейке таблицы.
		
	 | 
 
	  | 
	 | 
	
		Re: Ссылка в ячейке таблицы.
		
	 | 
 
	  | 
	 | 
	
		Re: Ссылка в ячейке таблицы.
		От:  ьшл1306 - Mon, 28 October 2024 16:45  
	 | 
 
	  | 
	 | 
	
		Re: Ссылка в ячейке таблицы.
		
	 | 
 
	  | 
	 | 
	
		Re: Ссылка в ячейке таблицы.
		От:  ьшл1306 - Mon, 28 October 2024 17:31  
	 | 
 
	  | 
	 | 
	
		Re: Ссылка в ячейке таблицы.
		
	 | 
 
	  | 
	 | 
	
		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: Ссылка в ячейке таблицы.
		
	 | 
  
Переход к форуму:
 
 Текущее время: Tue Nov 04 15:43:35 GMT+3 2025 
 Общее время, затраченное на создание страницы: 0.01685 секунд 
 |