Код: Выделить всё
procedure RefreshGal (Sender: TObject) ;
var
txtgal, zub, atxtgal:string;
Flags: TReplaceFlags;
begin
begin
Flags:= [ rfReplaceAll, rfIgnoreCase ];
txtgal := self['Жалобы'];
zub := self['НомерЗуба'];
dxMemo1.clear
atxtgal := stringreplace (txtgal,'XX',zub,Flags);
end;
dxMemo1.seltext := atxtgal
end;
GalobiRefreshBtn.Onclick :=@ RefreshGal;
AnamRefreshBtn.Onclick :=@ RefreshAnam;
ObOsRefreshBtn.Onclick :=@ RefreshObOs;
ObRefreshBtn.Onclick :=@ RefreshOb;
DsRefreshBtn.Onclick :=@ RefreshDs;
LechRefreshBtn.Onclick :=@ Refreshl;
Есть кнопки которые запускают процедуры для замены текста в каждом из окон. Пример одной из них, остальные написаны по такому же принципу. Как прописать кнопку, что бы запускало сразу по-очереди все процедуры.