Hi all, 

I am fighting with this memo output text on TDBLookupComboBox control. 

I have this db query: SELECT (flute.flute || '-') || flute.description AS flute 
FROM flute; 
and there are some similar queries. In a TDBGrid, we can let the output as is 
as the query result and not the (MEMO) output by using the 
TDBGrid's PrepareCanvas and the OnGetText events using this class: 

MyMemoClass = class 
public 
procedure DBGridOnGetText(Sender: TField; var aText: string; 
DisplayText: boolean); 
end; 
.... 
procedure MyMemoClass.DBGridOnGetText(Sender: TField; var aText: string; 
DisplayText: boolean); 
begin 
if (DisplayText) then 
aText := Sender.AsString; 
end; 

Then the final declaration at TDBGrid's PrepareCanvas event: 

var 
mGetExactString: MyMemoClass; 
Begin 
TDBGrid1.Columns.Items[x].Field.OnGetText := @mGetExactString.DBGridOnGetText; 
end; 

Is there a way I can do this similarly with TDBLookupComboBox control? I'm 
trying to find the similar PrepareCanvas and OnGetText events from 
TDBLookupComboBox but I find nothing... 

Regards, 
Allan 

--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus

Reply via email to