ссылка в stringgrid Опции

[Yurka]

Есть форма которая в одном столбике компонета stringgrid выводит названия городов, нужно из этих названий сделать ссылки которые открывают другую форму с информацией про соотвественный город.
Как сделать из названий ссылки?
За вывод информации про каждый город отвечает одна стандартная форма, которая читает данные из файлов.

[volvo]

как узнать номер ячейки по которой кликнули

В OnClick - никак. Надо ловить OnMouseDown, там определять, в какой ячейке пользователь нажал на кнопку мыши, запоминать координаты ячейки, а потом - ловить OnClick и обрабатывать запомненное раньше значение. Предупреждаю сразу: это - плохой метод. Ибо в Windows я привык, что если нажму мышой на контрол, а потом передумаю и нажатую мышь уведу с контрола - то клик не засчитывается. У тебя будет засчитываться. Это нехорошо. Чем тебе вот это решение не понравилось - понять не могу.

... (Показать/Скрыть)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, OleCtrls, SHDocVw, TeEngine, Series, ExtCtrls,
  TeeProcs, Chart, sButton, Grids;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    StringGrid1: TStringGrid;
    Add_City: TButton;
    Row_Num: TEdit;
    City_Name: TEdit;
    procedure Add_CityClick(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
  private
    { Private declarations }
    procedure StaticText_Click (Sender : TObject);
    procedure Static_Alignment (ARow : Integer);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}

procedure TForm1.StaticText_Click(Sender: TObject);
begin
  // Здесь вместо вывода сообщения будешь выводить форму с информацией
  // о городе, название которого хранится в Caption
  ShowMessage( 'City : ' + (Sender as TStaticText).Caption );
end;

// добавляем название города, хранящееся в Эдите  City_Name в строку
// грида с номером, который хранится в Эдите Row_Num. Это для теста.
// Можно сразу передавать название города и индекс строки грида...

procedure TForm1.Add_CityClick(Sender: TObject);
var New_SText : TStaticText;
begin
  New_SText := TStaticText.Create(Application);
  with New_SText do
  begin
    Caption := City_Name.Text;
    Parent := StringGrid1.Parent;
    OnClick := StaticText_Click;
  end;
  StringGrid1.Objects[1, StrToInt(Row_Num.Text)] := New_SText;

  StringGrid1.Cells[2, StrToInt(Row_Num.Text)] := City_Name.Text;
end;

procedure TForm1.Static_Alignment(ARow : Integer);
var
  My_SText : TStaticText;
  Rect : TRect;
begin
    My_SText := (StringGrid1.Objects[1, ARow] as TStaticText);
    if My_SText <> nil then
    begin
      Rect := StringGrid1.CellRect(1, ARow);
      My_SText.Left := StringGrid1.Left + Rect.Left + 2;
      My_SText.Top := StringGrid1.Top + Rect.Top + 2;
      My_SText.Width := Rect.Right - Rect.Left;
      My_SText.Height := Rect.Bottom - Rect.Top;
      My_SText.Alignment := taCenter;
    end;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if not (gdFixed in State) then
  begin
    if ACol = 1 then
    begin
      Static_Alignment(ARow);
    end;
  end;
end;

end.

Вот оно работает так, как пользователь привык. А ты извращайся дальше

[Yurka]

В OnClick - никак. Надо ловить OnMouseDown, там определять, в какой ячейке пользователь нажал на кнопку мыши, запоминать координаты ячейки, а потом - ловить OnClick и обрабатывать запомненное раньше значение. Предупреждаю сразу: это - плохой метод. Ибо в Windows я привык, что если нажму мышой на контрол, а потом передумаю и нажатую мышь уведу с контрола - то клик не засчитывается. У тебя будет засчитываться. Это нехорошо. Чем тебе вот это решение не понравилось - понять не могу.

Ваш код записал в delphi 7. Результат прикрепляю. Получается, что в StringGrid всё равно ссылки не создаются, ссылка создается вверху формы, может и напутал чего конечно...

 drt1.rar ( 273.12 килобайт ) Кол-во скачиваний: 343