Guest Posted March 8, 2011 Share Posted March 8, 2011 Message from: "Trebor" Is it possible to make a value in a dbgrid's cell look to act a hyperlink ? (if not, is it possible to make it to look like a hyperlink - with crHand cursor when mouse over) ? Thanks . Quote Link to comment Share on other sites More sharing options...
Guest Posted March 9, 2011 Author Share Posted March 9, 2011 Message from: "Farshad Mohajeri" "Trebor" wrote in message news:MwvhoFd3LHA.2168@anaxagvs227... > Is it possible to make a value in a dbgrid's cell look to act a hyperlink > ? > > (if not, is it possible to make it to look like a hyperlink - with crHand > cursor when mouse over) ? In webmode grid cells accept html content, so you can put a (see below) in a ReadOnly columns cell. 'Google' PS: Column should be ReadOnly so a click in cell will call the hyperlink. . Quote Link to comment Share on other sites More sharing options...
Guest Posted March 9, 2011 Author Share Posted March 9, 2011 Message from: "Trebor" Thanks Farshad. But, if I want to call another TUniFrame in the same application by clicking a hyperlink the application is restarting. This is my code: procedure TMainForm.GridDrawColumnCell(Sender: TObject; ACol, ARow: Integer; var Value: string; Column: TUniDBGridColumn; Attribs: TUniCellAttribs); begin if (Column.Field.Index = 0) then Value := ''+Value+''; end; procedure TMainForm.GridCellClick(Column: TUniDBGridColumn); begin if (Column.Field.Index = 0) then InsertFrame('Labels'); end; Any help? Thanks. "Farshad Mohajeri" wrote in message news:tmRNJQd3LHA.1648@anaxagvs227... > > "Trebor" wrote in message > news:MwvhoFd3LHA.2168@anaxagvs227... >> Is it possible to make a value in a dbgrid's cell look to act a hyperlink >> ? >> >> (if not, is it possible to make it to look like a hyperlink - with crHand >> cursor when mouse over) ? > > In webmode grid cells accept html content, so you can put a > (see below) in a ReadOnly columns cell. > > 'Google' > > PS: Column should be ReadOnly so a click in cell will call the hyperlink. > . Quote Link to comment Share on other sites More sharing options...
Guest Posted March 10, 2011 Author Share Posted March 10, 2011 Message from: "Farshad Mohajeri" "Trebor" wrote in message news:ic$GMan3LHA.1648@anaxagvs227... > Thanks Farshad. > > But, if I want to call another TUniFrame in the same application by > clicking a hyperlink the application is restarting. > > This is my code: > > procedure TMainForm.GridDrawColumnCell(Sender: TObject; ACol, ARow: > Integer; var Value: string; Column: TUniDBGridColumn; Attribs: > TUniCellAttribs); > begin > if (Column.Field.Index = 0) then > Value := ''+Value+''; > end; > > procedure TMainForm.GridCellClick(Column: TUniDBGridColumn); > begin > if (Column.Field.Index = 0) then > InsertFrame('Labels'); > end; > > Any help? try this: Value := ''+Value+''; . Quote Link to comment Share on other sites More sharing options...
Guest Posted March 10, 2011 Author Share Posted March 10, 2011 Message from: "Trebor" Thanks. "Farshad Mohajeri" wrote in message news:2xD5$jw3LHA.2168@anaxagvs227... > > "Trebor" wrote in message > news:ic$GMan3LHA.1648@anaxagvs227... >> Thanks Farshad. >> >> But, if I want to call another TUniFrame in the same application by >> clicking a hyperlink the application is restarting. >> >> This is my code: >> >> procedure TMainForm.GridDrawColumnCell(Sender: TObject; ACol, ARow: >> Integer; var Value: string; Column: TUniDBGridColumn; Attribs: >> TUniCellAttribs); >> begin >> if (Column.Field.Index = 0) then >> Value := ''+Value+''; >> end; >> >> procedure TMainForm.GridCellClick(Column: TUniDBGridColumn); >> begin >> if (Column.Field.Index = 0) then >> InsertFrame('Labels'); >> end; >> >> Any help? > > try this: > Value := ''+Value+''; > > > . Quote Link to comment Share on other sites More sharing options...
Guest Posted March 10, 2011 Author Share Posted March 10, 2011 Message from: "Trebor" Thanks. "Farshad Mohajeri" wrote in message news:2xD5$jw3LHA.2168@anaxagvs227... > > "Trebor" wrote in message > news:ic$GMan3LHA.1648@anaxagvs227... >> Thanks Farshad. >> >> But, if I want to call another TUniFrame in the same application by >> clicking a hyperlink the application is restarting. >> >> This is my code: >> >> procedure TMainForm.GridDrawColumnCell(Sender: TObject; ACol, ARow: >> Integer; var Value: string; Column: TUniDBGridColumn; Attribs: >> TUniCellAttribs); >> begin >> if (Column.Field.Index = 0) then >> Value := ''+Value+''; >> end; >> >> procedure TMainForm.GridCellClick(Column: TUniDBGridColumn); >> begin >> if (Column.Field.Index = 0) then >> InsertFrame('Labels'); >> end; >> >> Any help? > > try this: > Value := ''+Value+''; > > > . Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.