Tengo un form donde he creado tablas HTML de la siguiente forma:
(usando los componentes Intraweb de atozed http://www.atozed.co...b/index.EN.aspx en caso de que alguien tenga experiencia con ellos)
delphi
tblDel.Lines.Add('<table border="1" style="display:inline-block;vertical-align:top;">'); del := qryPos.FieldByName('Del').AsString; repeat tblDel.Lines.Add(Format('<thead><th colspan="%d">%s</th></thead>', [qryPos.FieldByName('DelKolumner').AsInteger, qryPos.FieldByName('Del').AsString])); for row := 1 to qryPos.FieldByName('DelRader').AsInteger do begin tblDel.Lines.Add('<tr>'); for col := 1 to qryPos.FieldByName('DelKolumner').AsInteger do begin if PosExists(fRum, del, row, col) then tblDel.Lines.Add(Format('<td style="font-weight:%s;color:%s">%s</td>', [ iff( qryPos.FieldByName('AntalKistor').AsInteger + qryPos.FieldByName('AntalUrnor').AsInteger + qryPos.FieldByName('AntalOvriga').AsInteger > 0, 'bold', 'normal'), iff( (qryPos.FieldByName('AntalKistor').AsInteger > qryPos.FieldByName('DelMaxKistor').AsInteger) or (qryPos.FieldByName('AntalUrnor').AsInteger > qryPos.FieldByName('DelMaxUrnor').AsInteger), 'red', 'black'), '<button> ' + qryPos.FieldByName('DelTyp').AsString + '</button>'])) else tblDel.Lines.Add('<td>-</td>'); end; tblDel.Lines.Add('</tr>'); end; qryPos.Next; until qryPos.Eof or (del <> qryPos.FieldByName('Del').AsString); tblDel.Lines.Add('</table>'); until qryPos.Eof or (fRum <> qryPos.FieldByName('Rum').AsString);
No sé si el código sea sencillo de entender pero de cualquier forma lo que interesa es la línea numero 21, donde estoy colocando un botón dentro de cada celda. Mi pregunta es, es posible agregar un metodo Onclick para mediante éste obtener el numero de tabla (del), fila(row) y columna(col) en los que se encuentra el boton clicado, para despues almacenarlos en una variable delphi???
Como siempre, espero haberme dado a entender,
Saludos y Gracias.